idl结果显示窗口如何缩小_科学网—IDL界面和对象参数或数据传递之万能的uValue - 董彦卿的博文...

;+

;《IDL语言程序设计》

; --数据快速可视化与ENVI二次开发(配盘)

;

;示例源代码

;

;作者:董彦卿

;

;联系方式：sdlcdyq@sina.com

;

;-

;界面关闭响应程序

PRO WIDGET_EXAMPLES_CLEANUP, tlb

;获取uValue

WIDGET_CONTROL,tlb,get_uvalue=pstate

;因是指针，故需要销毁

PTR_FREE, pState

END

;界面事件响应程序

PROWIDGET_EXAMPLES_EVENT, event

;获得顶base的uvalue，即组件信息指针结构体

WIDGET_CONTROL,event.TOP,get_uvalue=pstate

CASE TAG_NAMES(event,/STRUCTURE_NAME) OF

;关闭事件

'WIDGET_KILL_REQUEST': BEGIN

;提示是否关闭

tmp = DIALOG_MESSAGE('确认关闭？',$

title ='关闭系统',/question)

IF tmp EQ 'Yes' THEN BEGIN

;注意销毁之前创建的指针

PTR_FREE, pState

;销毁界面

WIDGET_CONTROL,event.TOP,/destroy

RETURN

ENDIF<