![]() | Programming Guide | WideStudio/MWT Index Table of contents |
ÀÚ¼¼ ¸®½ºÆ®
¸Þ¼µå¿¡ÀÇÇÑ ¸®½ºÆ®ÀÇ µ¥ÀÌÅÍ Ç¥½Ã Á¦¾î
°¡¼¼ÇÑ ¸®½ºÆ®(WSCverbList) ¶Ç´Â WSClist ÀÇ ¸®½ºÆ®Á¾º°°ú ÀÚ¼¼ÇÑ ¸®½ºÆ®¿¡ ¼³Á¤ÇѰͿ¡ Ç׸ñ Ç¥½Ã µ¥ÀÌÅ͸¦ Ãß°¡Çϱ⿡´Â ¸®½ºÆ®ÀÇ °æ¿ì¿Í ¸¶Âù°¡Áö·Î addItem ¸Þ¼µå¸¦ »ç¿ëÇÕ´Ï´Ù. addItem ¿¡ÀÇÇØ Ãß°¡µÇ´Â ¹®ÀÚ¿, Ãß°¡ÇÒ À§Ä¡¸¦ ÁöÁ¤ÇÕ´Ï´Ù. Ãß°¡ À§Ä¡¸¦ »ý·«ÇÏ¸é ¸®½ºÆ®ÀÇ ¸»¹Ì¿¡ Ãß°¡µË´Ï´Ù. ¸®½ºÆ®ÀÇ °æ¿ì¿Í ´Ù¸¥ Á¡Àº °¢ Ç׸ñÀÇ ÄÞ¸¶·Î ±¸ºÐµÈ Ç׸ñÀ» ¼³Á¤Çϴ°ÍÀÔ´Ï´Ù.±×¸²Ã³·³ °¡·Î4 ¼½¼ÇÀÇ ¸®½ºÆ®·ÎÇÒ °æ¿ì, ¼Ó¼º "barValue" ¿¡ 50,100,150 À» ¼³Á¤ÇÕ´Ï´Ù. ÀÌ ¼Ó¼ºÀº Á¦¸ñÀÇ ºÐ¸®ÀÚÀÇ À§Ä¡¸¦ ÁöÁ¤ÇÕ´Ï´Ù. ÀÌ ¼Ó¼º¿¡ÀÇÇÏ¿© ¼½¼ÇÀÇ ¼ö°¡ °áÁ¤µÇ±â¿¡ ÁÖÀÇ ÇØ ÁֽʽÿÀ. ¼Ó¼º "titleString" ¿¡´Â sec1,sec2,sec3,sec4 À» ¼³Á¤ÇÕ´Ï´Ù.
[ÀÚ¼¼ÇÑ ¸®½ºÆ® Ç¥½ÃÀÇ ¿¹]
ÀÚ¼¼ÇÑ ¸®½ºÆ®¿¡ Ç׸ñÀ» Ãß°¡ÇÏ´Â »ùÇÃÀÔ´Ï´Ù.#---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- use mwt; sub btnep1 { my ($object) = @_; # ¸®½ºÆ®ÀÇ Ç׸ñÀ» ¸ðµÎ »èÁ¦. $newlist_001->delAll(); # ¸®½ºÆ®ÀÇ ¸»¸®¿¡ Ç׸ñÀ» Ãß°¡. $newlist_001->addItem("item1,aaa,bbb,ccc"); $newlist_001->addItem("item2,aaa,bbb,ccc"); $newlist_001->addItem("item3,aaa,bbb,ccc"); $newlist_001->addItem("item4,aaa,bbb,ccc"); # ¸®½ºÆ®¸¦ º¯°æÇÑ °æ¿ì ¸¶Áö¸·¿¡ ÇϹø¸¸ °»½Å. $newlist_001->updateList(); return; } 1;¼Ó¼º¿¡¼ÀÇ ÀÚ¼¼ÇÑ ¸®½ºÆ® µ¥ÀÌÅÍÀÇ ¼³Á¤
ºñ±³Àû Ç׸ñ¼ö°¡ ÀûÀº °æ¿ì, ¼Ó¼º¿¡¼ Çѽÿ¡ Ç׸ñÀ» ¼³Á¤ÇÒ¼ö°¡ ÀÖ½À´Ï´Ù. ÀÌ °æ¿ì,¿ì¼± "dataSource" ¼Ó¼ºÀ» WS_DATA_SOURCE_NONE ¿¡ ÁöÁ¤ÇÕ´Ï´Ù. ´ÙÀ½¿¡ "data" ¼Ó¼º¿¡ °³ÇàÄÚµå·Î ±¸ºÐÇÑ µ¥ÀÌÅ͸¦ ¼³Á¤ÇÕ´Ï´Ù.#---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- use mwt; sub btnep1 { my ($object) = @_; # ¸®½ºÆ®ÀÇ Ç׸ñÀ» ¸ðµÎ »èÁ¦. $newlist_001->delAll(); # ¸®½ºÆ®¿¡ ¼Ó¼ºÀ¸·Î µ¥ÀÌÅ͸¦ ¼³Á¤ $newlist_001->setProperty("dataSource",$mwt::WS_DATA_SOURCE_NONE); $newlist_001->setProperty("data", "item1,aaa,bbb,ccc\nitem2,aaa,bbb,ccc\nitem3,aaa,bbb,ccc"); return; } 1;¶ÇÇÑ ´ÙÀ½°ú °°ÀÌ ¾ÆÀÌÄÜ ÆÄÀÏÀ» µ¿½Ã¿¡ ÁöÁ¤Çϸé Ç׸ñ¸¶´ÙÀÇ ¾ÆÀÌÄܵµ ÁöÁ¤ ÇÒ¼ö ÀÖ½À´Ï´Ù. ¼Ó¼º "useIcon" À» True ·Î ¼³Á¤ÇÏ¿© ¾ÆÀÌÄÜÀ» ÁöÁ¤ÇÒ °æ¿ì¿¡´Â ÄÞ¸¶¸¦ Áö¿ö¼ ÁöÁ¤ÇÕ´Ï´Ù. ¾ÆÀÌÄÜ ÆÄÀÏÀº »ý·«ÇÏ¸é ¼Ó¼º "iconPixmap" ¿¡ ÁöÁ¤µÇ¿©Àִ°ÍÀÌ »ç¿ëµË´Ï´Ù.
¼½Ä:¾ÆÀÌÄÜ ÆÄÀÏ, ¹®ÀÚ¿, ¹®ÀÚ¿, ¹®ÀÚ¿,...\n ¾ÆÀÌÄÜ ÆÄÀÏ, ¹®ÀÚ¿, ¹®ÀÚ¿,...\n....#---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- use mwt; sub btnep1 { my ($object) = @_; # ¸®½ºÆ®ÀÇ Ç׸ñÀ» ¸ðµÎ »èÁ¦. $newlist_001->delAll(); # ¸®½ºÆ®¿¡ ¼Ó¼ºÀ¸·Î µ¥ÀÌÅ͸¦ ¼³Á¤ $newlist_001->setProperty("dataSource",$mwt::WS_DATA_SOURCE_NONE); $newlist_001->setProperty("data", "$(WSDIR)/sys/pixmaps/bi16.xpm,item1,aaa,bbb,ccc\n,item2,aaa,bbb,ccc\n,item3,aaa,bbb,ccc"); return; } 1;ÆÄÀÏ¿¡¼ÀÇ ÀÚ¼¼ÇÑ ¸®½ºÆ® µ¥ÀÌÅÍÀÇ ¼³Á¤
ÆÄÀϸíÀ» ÁöÁ¤Çؼ ÆÄÀÏ¿¡¼ Çѽÿ¡ Ç׸ñÀ» ¼³Á¤ ÇÒ¼ö ÀÖ½À´Ï´Ù. ÀÌ °æ¿ì ¿ì¼± "dataSource" ¼Ó¼ºÀ» WS_DATA_SOURCE_FILE ¿¡ ÁöÁ¤ÇÕ´Ï´Ù. ´ÙÀ½¿¡ "dataSourceName" ¼Ó¼º¿¡ ÆÄÀϸíÀ» ÁöÁ¤ÇÕ´Ï´Ù. ºô´õ¿¡¼ÀÇ ¼Ó¼º ¼³Á¤,ÇÁ·Î±×·¥¿¡¼ÀÇ ¼³Á¤À¸·Î µ¿ÀÛÇÕ´Ï´Ù. ¾Æ·¡´Â ÇÁ·Î±×·¥¿¡¼ÀÇ ¼³Á¤¿¹ÀÔ´Ï´Ù.#---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- use mwt; sub btnep1 { my ($object) = @_; # ¸®½ºÆ®ÀÇ Ç׸ñÀ» ¸ðµÎ »èÁ¦. $newlist_001->delAll(); # ¸®½ºÆ®¿¡ ÆÄÀÏ·Î µ¥ÀÌÅ͸¦ ¼³Á¤ $newlist_001->setProperty("dataSource",$mwt::WS_DATA_SOURCE_FILE); $newlist_001->setProperty("dataSourceName","data.txt"); return; } 1; #data.txt ÀÇ ³»¿ë $(WSDIR)/sys/pixmaps/bi16.xpm,item1,aaa,bbb,ccc item2,aaa,bbb,ccc item3,aaa,bbb,ccc item4,aaa,bbb,ccc $(WSDIR)/sys/pixmaps/bi16.xpm,item5,aaa,bbb,ccc item6,aaa,bbb,ccc item7,aaa,bbb,ccc item8,aaa,bbb,cccÀνºÅϽº¿¡¼ÀÇ ÀÚ¼¼ÇÑ ¸®½ºÆ®ÀÇ µ¥ÀÌÅÍ Ç¥½Ã
ÀνºÅϽº¸íÀ» ÁöÁ¤Çؼ ÀνºÅϽº¿¡¼ Çѽÿ¡ Ç׸ñÀ» ¼³Á¤ÇÒ¼ö°¡ ÀÖ½À´Ï´Ù. ÀÌ °æ¿ì ¿ì¼± "dataSource" ¼Ó¼ºÀ» WS_DATA_SOURCE_INSTANCE ¿¡ ÁöÁ¤ÇÕ´Ï´Ù. ´ÙÀ½¿¡ "dataSourceName" ¼Ó¼º¿¡ ÀνºÅϽº¸íÀ» ÁöÁ¤ÇÕ´Ï´Ù. ¾Æ·¡ ¿¹¼´Â WSCtextField ÀÇ ÀνºÅϽº newtext_000 À» ÁöÁ¤ÇϰíÀÖ½À´Ï´Ù. µ¥ÀÌÅÍÀÇ Çü½ÄÀº ÆÄÀÏ ÁöÁ¤ÀÇ °æ¿ì¿Í °°½À´Ï´Ù. newtext_000 ¿¡ ÀԷµǿ©ÀÖ´Â ¹®ÀÚ¿ÀÌ ¸®½ºÆ®¿¡ Ç¥½ÃµË´Ï´Ù. ºô´õ¿¡¼ÀÇ ¼Ó¼º ¼³Á¤,ÇÁ·Î±×·¥¿¡¼ÀÇ ¼³Á¤À¸·Î µ¿ÀÛÇÕ´Ï´Ù. ¾Æ·¡´Â ÇÁ·Î±×·¥¿¡¼ÀÇ ¼³Á¤¿¹ÀÔ´Ï´Ù. ÀÌ °æ¿ì, ÀÔ·Â ÇʵåÀÇ ÀνºÅϽº newtext_000 ¿¡ ÀԷµǿ©ÀÖ´Â ¹®ÀÚ¿ÀÌ ÀÚ¼¼ÇÑ ¸®½ºÆ®ÀÇ Ç׸ñÀ¸·Î Ç¥½ÃµË´Ï´Ù.#---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- use mwt; sub btnep1 { my ($object) = @_; # ¸®½ºÆ®ÀÇ Ç׸ñÀ» ¸ðµÎ »èÁ¦. $newlist_001->delAll(); # ¸®½ºÆ®¿¡ ÆÄÀÏ·Î µ¥ÀÌÅ͸¦ ¼³Á¤ $newlist_001->setProperty("dataSource",$mwt::WS_DATA_SOURCE_INSTANCE); $newlist_001->setProperty("dataSourceName","newtext_000"); return; } 1;
Copyright(C) WideStudio/MWT Development Team, 1999-2005 | Last modified: Jul 31, 2005 |