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

---

用户对话框

---

作成简单的用户对话框

利用WSCdialog 制作具有以下功能的简单用户对话框。

点击某按钮时，显示对话框。

在对话框上有输入字段和无线按钮组。

对话框结束时，核对输入是否正确。

在标签中显示对话框的输入结果。

[使用用户对话框的范例]

这个范例，作为ws/sampes/Ruby/dialog/newproject.prj 提供。

---

用户对话框的自动启动控制

将在提供的ws/sampes/share/dialog/newproject.prj范例基础上，实现用户对话框的自动启动控制。 对话框往往作为输入或显示专用窗口被使用。因此，作为通常窗口制作时有难处理情况。 譬如，想从多个事件过程调用同样的对话框时。

此时，如果作为普通的窗口进行处理的话，对话框的输入是否结束的判断处理就复杂。 然而，如果制作为对话框的话，对话框输入结束后，可以通过popup函数实现同期回归处理， 可简单地通过事件过程对对话框的输入进行控制。

下图中，显示了当被显示窗返回结果时的普通窗口和对话框的差异。

[使用普通窗口和对话框的差异]

接着，我们将逐顺序说明简单对话框的处理次序。 首先制作对话框。制作WSCdialog Class的一个Instance。 然后在对话框上部署各种对象。在范例中，部署了下列对象。

mwt::WSCvifield newvifi_003

mwt::WSCradioGroup newradi_006

[简单的用户对话框例子]

然后，记述点击对话框的 OK，NO，CANCEL 按钮时所做的处理。 通过对话框 ACITVATE 触发器，连接事件过程。使用该这个事件过程， 可以确认对话框输入值是否正确，如果不正确，通过消息对话框显示错误。

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

sub dialogep {
  my ($object) = @_;
  if ($object->getStatus() != $mwt::WS_DIALOG_OK){    # A
    $object->setVisible($mwt::False);
    return;
  }
  $str = $newvifi_003->getProperty("labelString"); 
  if ( $str->getCharPtr() eq "" ){                     # B
    $msg = mwt::WSGIappMessageDialog();
    $msg->setProperty("defaultPosition",$mwt::True);
    $msg->setProperty("width",500);
    $msg->setProperty("labelString",
           "Please input some string to the input field.");
    $msg->popup();                         # C
    return;
  }
  $val = $newradi_006->getProperty("value");
  if ( $val->getLong() == 0 ){                           # D
    $msg = mwt::WSGIappMessageDialog();
    $msg->setProperty("defaultPosition",$mwt::True);
    $msg->setProperty("width",500);
    $msg->setProperty("labelString","Please select a item of the radio group.");
    $msg->popup();                         # E
    return;
  }
  $object->setVisible($mwt::False);         # F
  return;
}
1;

首先，取得事件过程对话框的Class pointer。通过访问对话框类 固有的getStatus 函数，确认被按按钮的种类。

A ，不是对话框类的情况，结束事件过程。

B ，核对被按按钮。OK 按钮以外，不显示对话框。

C 判断 newvifi_003中的输入。没被输入的情况，D 显示消息对话框，然后结束处理。

E 判断newradi_006是否被选择。没被选择的情况，用F显示消息对话框，然后结束处理。

下面是调出对话框的事件过程例子。

[调用用户对话框画面的例子]

按下[dialog！]按钮时，对话框将被显示，输入结果将被显示在3个标签上。 在第1个的标签上，显示对话框的 OK，NO，CANCEL 按钮被按时的结果。 第2个标签上，显示被输入newvifi_003的结果，第3个标签上，显示newradi_006被选择的结果。

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

sub btnep {
  my ($object) = @_;
  $val = $newdial_001->popup();
  if ($val == $mwt::WS_DIALOG_OK){
     $newvlab_007->setProperty("labelString","DIALOG OK!");
  }elsif ($val == $mwt::WS_DIALOG_NO){
     $newvlab_007->setProperty("labelString","DIALOG NO!");
  }elsif ($val == $mwt::WS_DIALOG_CANCEL){
     $newvlab_007->setProperty("labelString","DIALOG CANCEL!");
  }
  $tmp = $newvifi_003->getProperty("labelString");
  $tmp2 = sprintf("INPUT: %s",$tmp->getCharPtr());
  $newvlab_010->setProperty("labelString",$tmp2);

  $val = $newradi_006->getProperty("value");
  $tmp2 = sprintf("SELECT: %s",$val->getCharPtr());
  $newvlab_011->setProperty("labelString",$tmp2);
  return;
}
1;