| Re: processing widget events from multiple hierarchies [message #26341 is a reply to message #26340] |
Wed, 22 August 2001 11:15   |
Rick Baer
Messages: 6
Registered: November 1999
|
Junior Member |
|
|
; Code fragment illustrating problems with event_pro specification.
; Events go to XWidTest_event( ), not XWidTest_Param( ),
XWidTest_ParamAccept( ), XWidTest_Param2( ).
;////////////////////////////////////////////////////////
;/// modal dialog ///
pro XWidTest_Action3, event
widget_control, event.top, Get_UValue=info, /No_Copy
; If this widget already exists, then don't duplicate it
if (NOT widget_info(info.baseAID, /valid_id)) then begin
info.baseAID = widget_base(column = 1, title = 'parameters')
baseA1ID = widget_base(info.baseAID, column = 2)
labelA1ID = widget_label(baseA1ID, value = "parameter 1")
editA1ID = widget_text(baseA1ID, value="edit 1", uvalue = "PARAM1",
/EDITABLE, event_pro = XWidTest_Param)
; .... other base/label/text commands omitted for clarity
buttonAID = widget_button(info.baseAID, value="accept", event_pro =
XWidTest_ParamAccept)
widget_control, info.baseAID, /realize
endif ; (widget already exists test)
xmanager, 'XWidTest', info.baseAID, /NO_BLOCK, event_handler =
XWidTest_Param2
; restore the user data handle
widget_control, event.top, Set_UValue=info, /NO_COPY
end
;////////////////////////////////////////////////////////
;/// main program ///
pro XWidTest
base1ID = widget_base(column = 1, title = 'base 1')
menuID = WIDGET_BUTTON(base1ID, VALUE='Test', /MENU)
action3ID=WIDGET_BUTTON(menuID, VALUE='pop-up dialog', $
UVALUE='ACTION3', EVENT_PRO="XWidTest_Action3")
widget_control, base1ID, /realize
; place holder for dialog widget
baseAID = -1L
; pass pointer to window data
info = {baseAID:baseAID}
widget_control, base1ID, set_uvalue=info, /NO_COPY
xmanager, 'XWidTest', base1ID, /NO_BLOCK
end
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
