Posted to tcl by Lectus at Thu Sep 20 00:10:31 GMT 2007view raw
- # test.tcl --
- #
- # UI generated by GUI Builder Build 146 on 2007-09-19 21:05:54 from:
- # C:/Documents and Settings/Frederico/Desktop/test.ui
- # This file is auto-generated. Only the code within
- # '# BEGIN USER CODE'
- # '# END USER CODE'
- # and code inside the callback subroutines will be round-tripped.
- # The proc names 'ui' and 'init' are reserved.
- #
- package require Tk 8.4
- # Declare the namespace for this dialog
- namespace eval test {}
- # Source the ui file, which must exist
- set test::SCRIPTDIR [file dirname [info script]]
- source [file join $test::SCRIPTDIR test_ui.tcl]
- # BEGIN USER CODE
- # I added the 2 following lines by hand only:
- package require tile
- namespace import -force ttk::*
- # END USER CODE
- # BEGIN CALLBACK CODE
- # ONLY EDIT CODE INSIDE THE PROCS.
- # test::_button_1_command --
- #
- # Callback to handle _button_1 widget option -command
- #
- # ARGS:
- # <NONE>
- #
- proc test::_button_1_command args {}
- # test::_entry_1_invalidcommand --
- #
- # Callback to handle _entry_1 widget option -invalidcommand
- #
- # ARGS:
- # <NONE>
- #
- proc test::_entry_1_invalidcommand args {}
- # test::_entry_1_validatecommand --
- #
- # Callback to handle _entry_1 widget option -validatecommand
- #
- # ARGS:
- # <NONE>
- #
- proc test::_entry_1_validatecommand args {}
- # test::_entry_1_xscrollcommand --
- #
- # Callback to handle _entry_1 widget option -xscrollcommand
- #
- # ARGS:
- # <NONE>
- #
- proc test::_entry_1_xscrollcommand args {}
- # END CALLBACK CODE
- # test::init --
- #
- # Call the optional userinit and initialize the dialog.
- # DO NOT EDIT THIS PROCEDURE.
- #
- # Arguments:
- # root the root window to load this dialog into
- #
- # Results:
- # dialog will be created, or a background error will be thrown
- #
- proc test::init {root args} {
- # Catch this in case the user didn't define it
- catch {test::userinit}
- if {[info exists embed_args]} {
- # we are running in the plugin
- test::ui $root
- } elseif {$::argv0 == [info script]} {
- # we are running in stand-alone mode
- wm title $root test
- if {[catch {
- # Create the UI
- test::ui $root
- } err]} {
- bgerror $err ; exit 1
- }
- }
- catch {test::run $root}
- }
- test::init .
- ##############################################################################
- # test_ui.tcl --
- #
- # UI generated by GUI Builder Build 146 on 2007-09-19 21:05:54 from:
- # C:/Documents and Settings/Frederico/Desktop/test.ui
- # THIS IS AN AUTOGENERATED FILE AND SHOULD NOT BE EDITED.
- # The associated callback file should be modified instead.
- #
- # Declare the namespace for this dialog
- namespace eval test {}
- package require Tk
- # test::ui --
- #
- # Create the UI for this dialog.
- #
- # ARGS:
- # root the parent window for this form
- # args a catch-all for other args, but none are expected
- #
- proc test::ui {root args} {
- # this handles '.' as a special case
- set base [expr {($root == ".") ? "" : $root}]
- variable ROOT $root
- variable BASE $base
- variable SCRIPTDIR ; # defined in main script
- # Widget Initialization
- variable _entry_1 [entry $BASE._entry_1 \
- -invalidcommand [namespace code [list _entry_1_invalidcommand]] \
- -validatecommand [namespace code [list _entry_1_validatecommand]] \
- -width 0 \
- -xscrollcommand [namespace code [list _entry_1_xscrollcommand]]]
- variable _button_1 [button $BASE._button_1 \
- -command [namespace code [list _button_1_command]] \
- -text "OK"]
- # Geometry Management
- grid $BASE._entry_1 -in $root -row 2 -column 2 \
- -columnspan 7 \
- -ipadx 0 \
- -ipady 0 \
- -padx 0 \
- -pady 0 \
- -rowspan 1 \
- -sticky "ew"
- grid $BASE._button_1 -in $root -row 2 -column 10 \
- -columnspan 2 \
- -ipadx 0 \
- -ipady 0 \
- -padx 0 \
- -pady 0 \
- -rowspan 1 \
- -sticky ""
- # Resize Behavior
- grid rowconfigure $root 1 -weight 0 -minsize 40 -pad 0
- grid rowconfigure $root 2 -weight 0 -minsize 40 -pad 0
- grid rowconfigure $root 3 -weight 0 -minsize 40 -pad 0
- grid rowconfigure $root 4 -weight 0 -minsize 40 -pad 0
- grid rowconfigure $root 5 -weight 0 -minsize 40 -pad 0
- grid rowconfigure $root 6 -weight 0 -minsize 40 -pad 0
- grid rowconfigure $root 7 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 1 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 2 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 3 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 4 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 5 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 6 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 7 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 8 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 9 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 10 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 11 -weight 0 -minsize 40 -pad 0
- grid columnconfigure $root 12 -weight 0 -minsize 40 -pad 0
- }