WideStudio Logo
WideStudio
Programming Guide
WideStudio Index
Table of contents


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



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

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

use mpfc;

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

  # ºÎ¸ð°´Ã¼¸¦ Ãëµæ
  $parent = mpfc::WSCbase_getParent($object);
  # ºÎ¸ð°´Ã¼¿¡ Á¢±Ù
  mpfc::WSCbase_setVisible($parent,$mpfc::False);
  return;
}
1;

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

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

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

use mpfc;

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

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

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

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