namespace import -force ttk::*

# 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
}