pref_event.pro

来自「DICOM viewer - this software is used to 」· PRO 代码 · 共 69 行

pro pref_cleanup, tlb

    widget_control, tlb, get_uvalue = self
    self -> close_dialog

end


pro text_event, event

    if event.type eq 0 then begin

        widget_control, event.top, get_uvalue = self
        self -> setproperty, user_preferences = -1
        self -> update, /no_select

    endif

end


pro pref_event, event

    widget_control, event.id, get_uvalue = uval
    widget_control, event.top, get_uvalue = self

    case uval of

        'accept': begin
            self -> apply_preferences
        end

        'anon_pref': begin

            if event.select then $
                self -> reset

        end

        'cancel': begin

            widget_control, event.top, /destroy

         end

        'net': begin
            self -> set_output_dir, /net
            self -> setproperty, user_preferences = -1
            self -> update, /no_select
         end

        'outdir': self -> set_output_dir, dialog_pickfile(/dir)

        'save': begin
            self -> apply_preferences, /save_pref
        end

        'user_pref': begin

            if event.select then $
                self -> reset, 1

        end

        else:

    endcase

end