WideStudio Logo
WideStudio
Programming Guide
WideStudio Index
Table of contents


°´Ã¼ÀÇ ¼Ó¼ºÁö¸¦ Ãëµæ/ ¼³Á¤Çϱ⿡´Â

À̺¥Æ® ÇÁ·Î½ÃÀú¿¡À־, °´Ã¼ÀÇ ¼Ó¼º¿¡´ëÇÏ¿© Á¢±Ù(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;


Document Release 3.70 for WideStudio ver 3.70, Feb 2004


WideStudio documents index | Table of contents

Copyright(C) T. Hirabayashi, 2000-2004 Last modified: Feb 25, 2004