pro save_image_event,event
;
widget_control,event.top,get_uvalue=top_struct
;
case (event_name(event)) of
   "LIST":begin
   help,event,/str
endcase
endcase
return
end