CW_ZOOM [message #1457] |
Mon, 04 October 1993 13:02 |
dean
Messages: 55 Registered: March 1993
|
Member |
|
|
I am trying to use the Compound Widget CW_ZOOM. However, it is unclear
to me how do I get the image into CW_ZOOM. Can you provide me with an example.
Kelly Dean
********************************************************** \ *****
Kelly Dean \
Cooperative Institute for Research in the Atmosphere ___\
Foothills Campus /|
Colorado State University / |\
Fort Collins, CO 80523 / | \
E-MAIL: DEAN@PHOBOS.CIRA.COLOSTATE.EDU | \
************************************************************ **************
---------------------------- test Procedure ---------------------------------
PRO tzoom_event, event
WIDGET_CONTROL, event.id, GET_UVALUE = eventval
print, eventval
CASE eventval OF
'IMGZOOM' :PRINT, eventval
'DONE' :WIDGET_CONTROL, event.top, /DESTROY
ENDCASE
END
PRO TZOOM
base = Widget_Base(Title='Zoom Image', /Column)
button1 = WIDGET_BUTTON(base, UVALUE = 'DONE', VALUE = 'DONE')
imgzoom = CW_ZOOM(base, UVALUE = 'IMGZOOM')
Widget_Control, base, /Realize
XMANAGER, 'tzoom', base
END
|
|
|