chapter07basewidget.pro

idl 可视化分析与应用（随书程序）

;Chapter07BaseWidget.pro
PRO SubProcedure, event
    Result = DIALOG_MESSAGE('Happy You!',/INFORMATION)
END
PRO Chapter07BaseWidget
    MyBase =WIDGET_BASE(XSIZE=500,YSIZE=400, TITLE='MyBase')
    MyButton = WIDGET_BUTTON(MyBase, VALUE='Welcome',    $
               EVENT_PRO='SubProcedure', XSIZE=100, YSIZE=40, $
               XOFFSET=200, YOFFSET=60 )
    WIDGET_CONTROL, MyBase, /REALIZE
    XMANAGER, 'Chapter07ModalWidget', MyBase
END