WideStudio/MWT Logo
WideStudio/MWT
Programming Guide
WideStudio/MWT Index
Table of contents


ºÎ¸ð °´Ã¼¸¦ ÃëµæÇϱ⿡´Â



ºÎ¸ð °´Ã¼¸¦ ÃëµæÇϱ⿡´Â

ºÎ¸ð °´Ã¼¸¦ ÃëµæÇϱ⿡´Â, ¸â¹ö ÇÔ¼ö getParent() ¸¦ »ç¿ëÇÕ´Ï´Ù.

use mwt;

sub event_procedure {
  my ($object) = @_;

  # ºÎ¸ð°´Ã¼¸¦ Ãëµæ
  $parent = $object->getParent();
  # ºÎ¸ð°´Ã¼¿¡ Á¢±Ù
  $parent->setVisible($mwt::False);
  return;
}
1;

object °¡ ¹èÄ¡µÇ¿©ÀÖ´Â ºÎ¸ð °´Ã¼¸¦ ÃëµæÇؼ­, Ç¥½Ã ¼Ó¼ºÀ» ºÒ°¡·Î Çϴ°÷ÀÔ´Ï´Ù.

ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©µµ¿ì¸¦ ÃëµæÇϱ⿡´Â

ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©µµ¿ì¸¦ ÃëµæÇϱ⿡´Â, ¸â¹ö ÇÔ¼ö getParentWindow() ¸¦ »ç¿ëÇÕ´Ï´Ù.

use mwt;

sub event_procedure {
  my ($object) = @_;

  # ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©´õ¿ì¸¦ Ãëµæ
  $win = $object->getParentWindow();
  # ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©´õ¿ì¿¡ Á¢±Ù
  $win->setVisible($mwt::False);
  return;
}
1;

object °¡ ¹èÄ¡µÇ¿©ÀÖ´Â ºÎ¸ð ¾ÖÇø®ÄÉÀÌ¼Ç À©µµ¿ì¸¦ ÃëµæÇؼ­, Ç¥½Ã ¼Ó¼ºÀ» ºÒ°¡·Î Çϴ°÷ÀÔ´Ï´Ù.

Document Release 3.90 for WideStudio/MWT ver 3.90, Jul 2005


WideStudio/MWT documents index | Table of contents

Copyright(C) WideStudio/MWT Development Team, 1999-2005 Last modified: Jul 31, 2005