![]() | Programming Guide | WideStudio Index Table of contents |
How to indicate a dialog on the WSEV_EXIT event procedure
There is the case to need to save data indicate a dialog whether to finish the application, when the application is finished by closing the window. In such a case it is convenient to use "exit" event procedure of the WSCwindow/WSCmainWindow class.
The WSCwindow/WSCmainWindow class generates the WSEV_EXIT trigger when the window is disappeared before finishing the application.
At first set True to the property "exit" of a WSCwindow/WSCmainWindow instance which is used as main window in the application, and put an event procedure to it with WSEV_EXIT trigger.
We will try to make an event procedure to have the following facility.
Indicates the dialog whether exit or continue. If [OK] is selected,execute some procedure and exit the application. If [NO] is selected,exit the application with no process. If [CANCEL] is selected,do nothing and does not exit the application. #---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- #The timer procedure which redisplay the window. timer = nil target = nil def delayproc(object) if target != nil target.setVisible(Mpfc::True) end end # EXIT event procedure # Indicates a dialog. def exit_ep(object) if object.getVisible() != Mpfc::False return end msg = Mpfc::WSGIappMessageDialog() #A msg.setProperty("width",500) msg.setProperty("no",Mpfc::True) msg.setProperty("defaultPosition",Mpfc::True) msg.setProperty("labelString", "Exit and save data?\n If you do not want to save and exit,push NO...") # Indicates the dialog. ret = msg.popup() #B if timer == nil parent = object.getParentWindow() timer = Mpfc::WSCbase::getNewInstance("WSCvtimer",parent,"objname") timer.init timer.setProperty("interval",250) timer.setProperty("cont",Mpfc::False) timer.addProcedure("delay-popup","delayproc",Mpfc::WSEV_ACTIVATE) end if ret == Mpfc::WS_DIALOG_OK #if (ret == WS_DIALOG_OK){ # saving some data ... exit 0 elsif ret == Mpfc::WS_DIALOG_NO #if (ret == WS_DIALOG_NO){ exit 0 elsif ret == Mpfc::WS_DIALOG_CANCEL # When CANCEL is selected.. E target = object timer.setProperty("running",Mpfc::True) # Start the timer to show target. end endGet the instance of the message dialog (A),indicate it (B). Check the result of the dialog (C)(D)(E). It need to execute delayed procedure to redisplay the window, because it is required that the exit event is done before the window be redisplayed.
[The exit dialog]
Copyright(C) T. Hirabayashi, 2000-2002 | Last modified: Oct 27, 2002 |