以下代码在NotePad++中以GB2312码写入,每次点击OK都会迭代生成弹窗
;事件响应程序
PRO BUTTONEVENT,event
MY_WIDGET
END
;界面创建程序
PRO MY_WIDGET
tlb = WIDGET_BASE(xsize=400,ysize=400)
button = WIDGET_BUTTON(tlb,$
value ='OK', $
event_pro = 'buttonEvent')
;其他创建代码
WIDGET_CONTROL,tlb,/Realize
XMANAGER,'my_widget',tlb,/no_Block
END