Hi everyone
I'm trying to update a pop11 procedure and place it into a
GUI. The basic problem I have is that the procedure uses
a readitem command to get the value of an attribute. I
have no idea how to mimic this using propsheets.
I have tried using the following command:
until immOptimiseStepLengthFlag = true do
XtAppProcessEvent(XptDefaultAppContext, XtIMAll);
enduntil;
to hold the procedure and the immOptimiseStepLengthFlag is
a global variable which the propsheet callback changes to
true when applied is selected by the user. This works, but
it does not change the value of the global variable associated
with the propsheet field (ie immOptimiseStepLengthList is not
changed when the user selects one of the options yes or no).
The propsheet callback is as follows:
define immOptimiseStepLengthBoxCallback (awBox, awButton) -> ACCEPT;
propsheet_handle_standard_button(awBox, awButton);
true -> ACCEPT;
immOptimiseStepLengthPanel('Can you give the step length of the variables?')
-> immOptimiseStepLengthList;
true -> immOptimiseStepLengthFlag;
propsheet_hide (immOptimiseStepLengthBox);
enddefine;
and the propsheet itself os:
define immMakeOptimiseStepLengthPanel ();
propsheet_new_box('DESIGNER -- Optimising The Design', awDesMenuArea,
immOptimiseStepLengthBoxCallback, [Apply]
)->immOptimiseStepLengthBox;
propsheet_new ('Selecting Step Length',
immOptimiseStepLengthBox,
['Can you give the step length of the variables?'
[yes no] ])->immOptimiseStepLengthPanel;
enddefine;
Can anyone see where the problem is? I've tried using ident, but got
nowhere. So, any advice would be gratefully received. Thanks in advance.
Iain
--
Iain McKay : <iainm@cad.strath.ac.uk>
------
*****************************************************************
***** And you, are you so forgetful of your past, *****
*** is there no echo in your soul of your poets' songs, ***
** your dreamers' dreams, your rebels' calls?" **
* ~ Emma Goldman *
*****************************************************************
|