作者:fbysss
关键字：IDL
!开头的是一些内置变量，比如!PI ，!PATH等
按Ctrl+Space可以打开代码提示
发布可执行文件只能使用MAKE_RT命令，而不是Export菜单
WIDGET_BASE 这个函数是窗口程序的基础。所有窗口元素都放置在WIDGET_BASE返回的窗口上。
base = WIDGET_BASE(/ROW, TITLE='标题') 表示创建一个顶级窗口，/ROW或者/COLUMN用来指定元素摆放的方式。
XOFFSET 和YOFFSET用来指定元素位置。一旦指定了/ROW或者COLUMN，坐标设置将被忽略.参数中的符号"/"表示该参数值设置为1。/row相当于 row = 1。也就是说，如果需要元素按照行来排列，可以使用/column（只有一列）或者row=n。
窗口创建完之后，需要使用WIDGET_CONTROL, base, /REALIZE 来显示
WIDGET_BASE(parent,/row.....)可以创建一个窗口放置在父窗口部件上。这时候不能指定TITLE参数，只有顶级窗口可以使用TITLE。
在XMANAGER中注册，这样可以和事件处理程序挂钩
一个Button可以显示文字，也可以显示图片
用画图工具创建一个图片，写上自己的名字，保存为bmp格式，取名为fbysss.bmp，然后在工程中导入该文件，
加入按钮button=WIDGET_BUTTON(base, VALUE='fbysss.bmp', /BITMAP)，啊哈，自己的名字已经在按钮上了！
要在运行期间修改图片，使用WIDGET_CONTROL, button, SET_VALUE='other.bmp', /BITMAP
ACCELERATOR参数用于设置快捷键，要注意，不能写成done=WIDGET_BUTTON(base, VALUE='执行',ACCELERATOR='6') ，快捷键必须是Ctrl/alt/shift与字母数字组合或者功能键F1-F12或其他除了字母和数字的键
UVALUE 参数是用户自定义的，可以用于辅助处理按下按钮之后的事件。
PRO example_event, ev
; The uservalue
is
retrieved from a widget when an event occurs:
WIDGET_CONTROL, ev.id, GET_UVALUE
=
uv
;
If
the event occurred in the Done button, kill the widget
; example:
if
(uv eq
'
DONE') THEN WIDGET_CONTROL, ev.top, /DESTROY
;
End
of the event handler part:
END
; This
is
the routine that creates the widget
and
registers it
with
; the XMANAGER:
PRO Example
; Create the top
-
level base
for
the widget:
base
=
WIDGET_BASE(TITLE
=
'
Example')
; Create the Done button
and
set
its uservalue
to
"
DONE
"
:
done
=
WIDGET_BUTTON(base, VALUE
=
'
Done', UVALUE = 'DONE')
; Realize the widget (i.e., display it
on
screen):
WIDGET_CONTROL, base,
/
REALIZE
; Register the widget
with
the XMANAGER, leaving the IDL command
; line active:
XMANAGER,
'
example', base, /NO_BLOCK
;
End
of the widget creation part:
END
上面这段例程中，ev是什么意思呢？其作用相当于一个参数，在这里是一个WIDGET_EVENT结构，包括id,top和handle三个字段。其中id表示产生时间的窗体元素的Id，top为该元素所在顶级容器的id,handle似乎是事件处理程序相关联的元素句柄（待核实）
上面这段代码，通过XManager 注册事件，但handle是base。也就是说，即使添加了n个button，都会处理同样的事件，即释放窗口。
这句话可以用于将某个按钮与特定的事件处理程序相关联：fbysssButton=Widget_Button(base, Value='Spacial Button', Event_Pro='fbysssButton_clickEvent')
在上面的代码中加入：
pro fbysssButton_clickEvent,ev
void =
DIALOG_MESSAGE(
'
hello,i am fbysss!')
void
=
DIALOG_MESSAGE(
'
ev.id:'+String(ev.id))
void
=
DIALOG_MESSAGE(
'
ev.top:'+String(ev.top))
void
=
DIALOG_MESSAGE(
'
ev.handler:'+String(ev.handler))
end
通过实验得知，id和handler的值一致，而把处理代码放入pro example_event中，top和handler一致。也就是说，虽然两个事件都是Button触发的，而example_event中的注册事件关联元素是base，fbysssButton_clickEvent中的注册事件关联元素是fbysssButton。
代码中还有一句GET_UVALUE = uv，这个也相当于一个别名，uv可以是其它名称，比如uvv。
注意：1.事件生效的前提是parent的事件通过XMANAGER注册。如果没有XMANAGER, 'example', base, /NO_BLOCK 这句话，就算指定了 'fbysssButton_clickEvent'，点击该按钮也不会有反应。
2.一个组件可能产生多个事件，比如resize,move等，上面的例子一古脑全捕获，如何有针对性地进行处理呢？这么重要的特性，居然没有封装在Event的结构里面，让人很难理解。国内的书籍中这一点提的很少。还好有help文档，可也花了我不少时间才找到。关键代码如下：
IF (TAG_NAMES(
event
,
/
STRUCTURE_NAME) EQ
'
WIDGET_TLB_MOVE') $
THEN
BEGIN
;在这里加入事件处理程序
END