![]() | Programming Guide | WideStudio/MWT Index Table of contents |
ºÎ¸ð °´Ã¼¸¦ ÃëµæÇϱ⿡´Â
ºÎ¸ð °´Ã¼¸¦ ÃëµæÇϱ⿡´Â
ºÎ¸ð °´Ã¼¸¦ ÃëµæÇϱ⿡´Â, ¸â¹ö ÇÔ¼ö getParent() ¸¦ »ç¿ëÇÕ´Ï´Ù.let event_procedure obj = (* ºÎ¸ð °´Ã¼¸¦ Ãëµæ *) let parent = obj -> getParent () (* ºÎ¸ð °´Ã¼¿¡ Á¢±Ù(access) *) in parent -> "setVisible" ( _False ); () let _ = Callback.register "event_procedure" event_procedureobj °¡ ¹èÄ¡µÇ¿©ÀÖ´Â ºÎ¸ð °´Ã¼¸¦ ÃëµæÇØ¼, Ç¥½Ã ¼Ó¼ºÀ» ºÒ°¡·Î Çϴ°÷ÀÔ´Ï´Ù.ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©µµ¿ì¸¦ ÃëµæÇϱ⿡´Â
ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©µµ¿ì¸¦ ÃëµæÇϱ⿡´Â, ¸â¹ö ÇÔ¼ö getParentWindow() ¸¦ »ç¿ëÇÕ´Ï´Ù.let event_procedure obj = (* ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©µµ¿ì¸¦ Ãëµæ *) let win = obj -> getParentWindow () (* ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©µµ¿ìªË Á¢±Ù(access) *) in win -> setVisible ( (get_int _False) ); () let _ = Callback.register "event_procedure" event_procedureobj °¡ ¹èÄ¡µÇ¿©ÀÖ´Â ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©µµ¿ì¸¦ ÃëµæÇØ¼, Ç¥½Ã ¼Ó¼ºÀ» ºÒ°¡·Î Çϴ°÷ÀÔ´Ï´Ù.
Copyright(C) WideStudio/MWT Development Team, 1999-2005 | Last modified: Jul 31, 2005 |