chapter07basewidget.pro

来自「IDL可视化工具入门与提高(PDF)及其随书代码」· PRO 代码 · 共 12 行

;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