°´Ã¼ÀÇ ¼Ó¼ºÁö¸¦ Ãëµæ/ ¼³Á¤Çϱ⿡´Â
À̺¥Æ® ÇÁ·Î½ÃÀú¿¡ÀÖ¾î¼, °´Ã¼ÀÇ ¼Ó¼º¿¡´ëÇÏ¿© Á¢±Ù(access)
ÇÒ¼ö ÀÖ½À´Ï´Ù. ´ÙÀ½ÀÇ API¸¦ »ç¿ëÇÕ´Ï´Ù.
Á¢±Ù(access) ÇÔ¼ö | ±â´É |
mpfc::WSCvariant mpfc::WSCbase_getProperty() | ¼Ó¼ºÀÇ Ãëµæ |
mpfc::WSCvariant mpfc::WSCbase_setProperty() | ¼Ó¼ºÀÇ ¼³Á¤ |
¼Ó¼ºÁöÀÇ Ãëµæ
°´Ã¼ÀÇ ¼Ó¼ºÀ» ÃëµæÇϱ⿡´Â,WSCbase Ŭ·¡½ºÀÇ ¸â¹ö ÇÔ¼öÀÎ
getProperty() ÀÇ »ç¿ëÇÕ´Ï´Ù.
#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
use mpfc;
sub event_procedure {
my ($object) = @_;
# "x" (XÁÂÇ¥)¼Ó¼ºÀÇ °ªÀ» ¹®ÀÚ¿·Î Ãëµæ
$x = mpfc::WSCbase_getProperty($object,"x");
printf("x=%s\n",mpfc::WSCvariant_getCharPtr($x)); # ¹®ÀÚ¿ÀÇ Ãëµæ
# "y" (YÁÂÇ¥)¼Ó¼ºÀÇ °ªÀ» Ãëµæ
$y = mpfc::WSCbase_getProperty($object,"y");
printf("y=%d\n",mpfc::WSCvariant_getLong($y)); # long ÇüÀÇ °ªÀÇ Ãëµæ
}
1;
"x" ÀÇ ¿¹·Î´Â ¹®ÀÚ¿·Î ÃëµæÇØ¼
"y" ÀÇ ¿¹·Î´Â ¼öÄ¡ÇüÀ¸·Î ÃëµæÇϰí ÀÖ½À´Ï´Ù.
°ü¼ö getProperty() ´Â WSCvariant ÇüÀ¸·Î °ªÀ» µ¹¸®Áö¸¸ WSCvariant ÇüÀº
°¢°¢ÀÇ ÇüÀ¸·Î °ªÀ» ÃëµæÇØ³õ½À´Ï´Ù.
mpfc.WSCvariant °ªÃëµæ°ü¼ö | ±â´É |
mpfc::WSCvarinat_getChar() | char ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getUnsignedChar() | unsigned char ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getShort() | short ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getUnsignedShort() | unsigned short ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getLong() | long ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getUnsignedLong() | unsigned long ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getInt() | int ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getUnsignedInt() | unsigned int ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getFloat() | float ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getDouble() | double ÇüÀÇ °ªÀÇ Ãëµæ |
mpfc::WSCvarinat_getCharPtr() | char* Çü(¹®ÀÚ¿)ÀÇ °ªÀÇ Ãëµæ |
¼Ó¼ºÁöÀÇ ¼³Á¤
°´Ã¼ÀÇ ¼Ó¼ºÀ» ¼³Á¤Çϱ⿡´Â WSCbase Ŭ·¡½ºÀÇ ¸â¹ö ÇÔ¼öÀÎ
setProperty() ¸¦ ÀÌ¿ëÇÕ´Ï´Ù.
#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
use mpfc;
sub event_procedure {
my ($object) = @_;
# "x" (XÁÂÇ¥)¼Ó¼ºÀÇ ¹®ÀÚ¿¿¡ÀÇÇÑ ¼³Á´
$x="100";
mpfc::WSCbase_setProperty($object,"x",$x);
# "y" (YÁÂÇ¥)¼Ó¼ºÀÇ ¼³Á¤
$y=100;
mpfc::WSCbase_setProperty($object,"y",$y);
return;
}
1;
"x" ÀÇ ¿¹·Î´Â ¹®ÀÚ¿À¸·Î °ªÀ» ¼³Á¤Çؼ
"y" ÀÇ ¿¹·Î´Â Á¤¼öÇüÀ¸·Î °ªÀ» ¼³Á¤Çϰí ÀÖ½À´Ï´Ù.
¼Ó¼ºÁöÀÇ ¹¦È¿¡ÀÇ ¹Ý¿µ
º¸Åë, À̺¥Æ® ÇÁ·Î½ÃÀúÀÇ ½ÇÇàÁ÷ÈÄ¿¡ ¹Ý¿µµÇ³ª, º¯°æÈÄ, ¼Ó¼ºÀÇ
°ªÀ» Áï½Ã ¹Ý¿µÇÒ °æ¿ì,update(),draw(),redraw() ¸¦ È£ÃâÇÕ´Ï´Ù.
À©µµ¿ì ½Ã½ºÅÛ¿¡ µû¶ó¼´Â ( ¿¹ÄÁµ¥ X11 ½Ã½ºÅÛÀÇ °æ¿ìµî) ¹¦È
¸¦ ÇѶ§, Áï½Ã´Â À©µµ¿ì ½Ã½ºÅÛ¿¡ ¹Ý¿µ¾ÈµÉ °æ¿ì°¡ ÀÖ½À´Ï´Ù.
±×·² °æ¿ì´Â WSDappDev Ŭ·¡½ºÀÇ update() ¸¦ È£ÃâÇØÁֽʽÿÀ.
#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
use mpfc;
sub event_procedure {
my ($object) = @_;
mpfc::WSCbase_getProperty($newvlab_001,"labelString","ÅØ½ºÆ®");
mpfc::WSCbase_update($newvlab_001); # ÀÏÂïÀÌ °´Ã¼À» °»½Å.
mpfc::WSDappDev_update(mpfc::WSGIappDev()); # À©µµ¿ì ½Ã½ºÅÛ¿¡·Î ¹¦È¿ä±¸¸¦ ¹ø¿µ½ÃÅ´.
mpfc::WSCbase_getProperty($newvlab_002,"labelString","ÅØ½ºÆ®");
mpfc::WSCbase_update($newvlab_002); # ÀÏÂïÀÌ °´Ã¼À» °»½Å.
mpfc::WSDappDev_update(mpfc::WSGIappDev()); # À©µµ¿ì ½Ã½ºÅÛ¿¡·Î ¹¦È¿ä±¸¸¦ ¹ø¿µ½ÃÅ´.
return;
}
1;