wizard_event.pro

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

; Wizard Claenup.
pro wizard_cleanup, tlb

    widget_control, tlb, get_uvalue = wizard
    wizard -> setproperty, tlb = -1
    wizard -> close_wizard

end

; Wizard Event Handler
pro wizard_event, event

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

    case string(uval) of

        'accept': begin
            wizard -> set_anonymizer_values, /nowrite
            return
        end

        'anonymize': wizard -> set_anonymizer_values

        'cancel': begin

            widget_control, event.top, /destroy
            return

        end

        'pref': begin

            wizard -> preferences_wizard
            return

        end

        'remove': begin

            base = widget_info(event.id, /parent)
            widget_control, base, get_uvalue = state
            wizard -> remove_tag, state.tag
            return

        end

        'save':begin

            wizard -> set_anonymizer_values, /nowrite
            wizard -> save_preferences
            return

        end

        'val': begin

            check = 1-widget_info(event.id, /button_set)
            widget_control, event.id, set_button = check
            wizard -> setproperty, value_only = check
            wizard -> update_sensitivity
            return


        end

        else: print, uval

    endcase

    widget_control, event.top, /destroy

end