写出IDL搭建一个可以运行的界面的代码

以下是一个简单的IDL界面的代码示例，包括一个滑动条和一个按钮：

PRO demo_gui

; 创建一个窗口
w = WIDGET_BASE(TITLE='Demo GUI', /COLUMN)

; 创建一个滑动条，设置初始值为50，最小值为0，最大值为100，步长为1
slider = WIDGET_SLIDER(w, VALUE=50, RANGE=[0,100], /HORIZONTAL, TICKS=0)

; 创建一个标签，用于显示滑动条的值
label = WIDGET_LABEL(w, VALUE='50', /ALIGN_CENTER)

; 创建一个按钮，用于执行操作
button = WIDGET_BUTTON(w, VALUE='Run', /ALIGN_CENTER)

; 创建一个回调函数，用于响应滑动条值的变化
CALLBACK_PROCEDURE = { slider_callback, value:slider_value, label:label }
WIDGET_CONTROL, slider, SET_NOTIFY_PROCEDURE=CALLBACK_PROCEDURE

; 创建一个回调函数，用于响应按钮的点击事件
CALLBACK_PROCEDURE = { button_callback, value:slider_value }
WIDGET_CONTROL, button, SET_NOTIFY_PROCEDURE=CALLBACK_PROCEDURE

; 显示窗口
WIDGET_CONTROL, w, /REALIZE
WIDGET_CONTROL, w, /SHOW

; 进入事件循环
XMANAGER, 'demo_gui', /NO_BLOCK

END

; 回调函数，响应滑动条值的变化
PRO slider_callback, event
  WIDGET_CONTROL, event.id, GET_VALUE=slider_value
  WIDGET_CONTROL, event.top, WIDGET_ID=label, SET_VALUE=STRING(slider_value)
END

; 回调函数，响应按钮的点击事件
PRO button_callback, event
  WIDGET_CONTROL, event.id, GET_VALUE=slider_value
  PRINT, 'Slider value = ', slider_value
END

这个示例创建了一个窗口，包括一个水平方向的滑动条、一个标签和一个按钮。滑动条的值会实时显示在标签上，按下按钮时，会将滑动条的值打印到IDL命令行窗口中。

要运行这个界面，可以在IDL命令行中输入`demo_gui`命令，并按回车键。这将启动一个图形界面，包括滑动条、标签和按钮。你可以拖动滑动条来改变滑动条的值，点击按钮来执行操作。