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


ÆÄÀÏ ¼±Åà ´ëÈ­ »óÀÚ



ÆÄÀÏ ¼±Åà ´ëÈ­ »óÀÚÀÇ Ç¥½Ã

ÆÄÀÏ ¼±Åà ´ëÈ­ »óÀÚÀÇ »ç¿ëº¾À» º¸¾Æº¾½Ã´Ù. ÆÄÀÏ ¼±Åà ´ëÈ­»óÀÚ°°Àº ´ëÈ­ »óÀÚ¿¡ °ü¿¡¼­´Â º¯¸®ÇÑ Ç¥½Ã ¸Þ¼­µå popup °¡ ¸¶·ÃµÇ¿©ÀÖ½À´Ï´Ù.



[ÆÄÀÏ ¼±Åà ´ëÈ­ »óÀÚ]

popup ¸Þ¼­µå´Â ´ëÈ­ »óÀÚ¸¦ Ç¥½ÃÇÒ »Ó¸¸¾Æ´Ï¶ó ¿ÀÆÛ·¹ÀÌÅÍ°¡ OK³ª Ãë¼ÒµîÀ» ¼±ÅÃÇÑ °á°ú¸¦ ÇÔ¼ö º¹±Í·Î µ¹·ÁÁÝ´Ï´Ù. µû¶ó¼­ ÇÔ¼ö¸¦ ºÒ·¯³õ´Â°Í¸¸À¸·Î ´ëÈ­ »óÀÚÀÇ Ç¥½ÃºÎÅÍ ´ëÈ­ »óÀÚÀÇ Á¾·áÇÑ ½ÃÁ¡ÀÇ ¼±Åðá°úÀÇ ÃëµæÀ» ½ÇÇàÇÒ¼ö ÀÖ½À´Ï´Ù. ÆÄÀÏ ¼±Åà ´ëÈ­ »óÀÚ³ª ¸Þ½ÃÁö ´ëÈ­ »óÀÚ¿¡ °üÇÏ¿© ½ÇÁ¦ÀÇ »ùÇÃÇÁ·Î±×·¥À» º¸¾Æº¾½Ã´Ù.

#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
use mwt;

sub btnep2 {
  my ($object) = @_;
  # ÇÑ ÀÀ¿ëÇÁ·Î±×·¥¿¡ µû¶ó ÇÑ°³°¡ ¹Ì¸® ¸¶·ÃµÇ¿©ÀÖ½À´Ï´Ù.
  # ÆÄÀÏ ¼±Åà ´ëÈ­ »óÀÚÀÇ ÀνºÅϽºªË Á¢±Ù(access)ÇÕ´Ï´Ù.
  $fs = mwt::WSGIappFileSelect();                               #(A)
  $fs->setProperty("maskFileName","pl");            #(B)
  $fs->setProperty("defaultPosition",$mwt::True);  #(C)
  $ret = $fs->popup();                         #(D)

  # ÇÑ ÀÀ¿ëÇÁ·Î±×·¥¿¡ µû¶ó ÇÑ°³°¡ ¹Ì¸® ¸¶·ÃµÇ¿©ÀÖ´Â
  # ¸Þ½ÃÁö ´ëÈ­ »óÀÚÀÇ ÀνºÅϽº¸¦ ÃëµæÇÕ´Ï´Ù.
  $msg = mwt::WSGIappMessageDialog();                           #(E)
  $msg->setProperty("width",500);                   #(F)
  $msg->setProperty("height",120);                  #(G)
  $msg->setProperty("defaultPosition",$mwt::True); #(H)

  if ($ret == $mwt::WS_DIALOG_OK){                    #(I)
    $str = sprintf("%s °¡ ¼±Åõǿ´½À´Ï´Ù.", $fs->getFileName() );
    $msg->setProperty("labelString",$str);
    $msg->popup();
  }elsif ($ret == $mwt::WS_DIALOG_NO){                #(J)
    $msg->setProperty("labelString","¼±Åþȵǿ´½À´Ï´Ù.");
    $msg->popup();
  }elsif ($ret == $mwt::WS_DIALOG_CANCEL){               #(K)
    $msg->setProperty("labelString","¼±ÅÃÀº Ãë¼ÒµÇ¿´½À´Ï´Ù.");
    $msg->popup();
  }
  return;
}
1;

(A) ¿¡¼­ Àü¿ª ÀνºÅϽº Á¢±Ù(access) ÇÔ¼ö¸¦ »ç¿ëÇÏ¿© ÆÄÀÏ ¼±Åà ´ëÈ­»óÀÚÀÇ Àü¿ª ÀνºÅϽº¿¡ Á¢±Ù(access)ÇÕ´Ï´Ù. ÆÄÀÏ ¼±Åà ´ëÈ­ »óÀÚµîÀÇ Å¬·¡½º¿¡´Â ¹Ì¸® ¾ðÁ¦µçÁö »ç¿ëÇÒ¼öÀÖ´Â Àü¿ª ÀνºÅϽº°¡ Çϳª ¸¶·ÃµÇ¿©ÀÖ½À´Ï´Ù. ±×·¡¼­ Àü¿ª ÀνºÅϽº Á¢±Ù(access) ÇÔ¼ö¿¡ ÀÇÇÏ¿© Á¢±Ù(access)ÇÒ¼öÀÖµµ·Ï µÇ¿©ÀÖ½À´Ï´Ù.

(B),(C)·Î ¼Ó¼ºÀ» ¼³Á¤Çؼ­ (D) ·Î ´ëÈ­ »óÀÚ¸¦ Ç¥½Ã»óÅ·ΠÇÕ´Ï´Ù. ½ÇÁ¦·Î ¼±ÅÃÀÌ ½ÇÇàµÇ¸é popup ¸Þ¼­µå°¡ º¹±ÍÇØ¿É´Ï´Ù.

ÆÄÀÏ ¼±Åà ´ëÈ­ »óÀÚÀÇ ¼±Åðá°ú¸¦ ¸Þ½ÃÁö ´ëÈ­ »óÀÚ¸¦ »ç¿ëÇؼ­ Ç¥½ÃÇϵµ·Ï ÇսôÙ. (E),(F),(G),(H)¿¡¼­ ¸Þ½ÃÁö ´ëÈ­ »óÀÚÀÇ Àü¿ªÀνºÅϽº¸¦ ÃëµæÇؼ­ ¼Ó¼ºÀ» ¼³Á¤ÇÕ´Ï´Ù.

(I) ¿¡¼­´Â ¼±ÅÃµÈ ÆÄÀÏÀ» ¸Þ½ÃÁö ¹®ÀÚ¿­·Î Ç¥½ÃÇÕ´Ï´Ù. (J) ´Â ÆÄÀÏ ¼±ÅÃÀÌ ¾ø¾ú´ø ³»¿ëÀ» ¸Þ½ÃÁö ¹®ÀÚ¿­·Î Ç¥½ÃÇÕ´Ï´Ù. (K) ¿¡¼­´Â Ãë¼ÒµÈ ³»¿ëÀ» ¸Þ½ÃÁö ¹®ÀÚ¿­·Î Ç¥½ÃÇÕ´Ï´Ù.

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