# interface generated by SpecTcl version 1.0 from CopyRot.ui
#   root     is the parent window for this user interface

proc CopyOffset_ui {root args} {

	# this treats "." as a special case

	if {$root == "."} {
	    set base ""
	} else {
	    set base $root
	}
    
	frame $base.frame#4 \
		-borderwidth 2 \
		-relief ridge


	label $base.label#16 \
		-text [_ "Factor"]:

	entry $base.entry#13 \
		-borderwidth 1 \
		-insertborderwidth 1 \
		-textvariable CopyMoveInfo(OffsetFactor) \
		-width 8

	# Geometry management

	grid $base.frame#4 -in $root	-row 1 -column 1 

	grid $base.label#16 -in $base.frame#4	-row 1 -column 1  \
		-sticky e
	grid $base.entry#13 -in $base.frame#4	-row 1 -column 2  \
		-sticky ew
	
	# Resize behavior management

	grid rowconfigure $root 1 -weight 0 -minsize 1
	grid columnconfigure $root 1 -weight 0 -minsize 1

	grid rowconfigure $base.frame#4 1 -weight 0 -minsize 1
	grid columnconfigure $base.frame#4 1 -weight 0 -minsize 1
	grid columnconfigure $base.frame#4 2 -weight 1 -minsize 1

# additional interface code


# end additional interface code

}


# Allow interface to be run "stand-alone" for testing

catch {
    if {$argv0 == [info script]} {
	wm title . [_ "Testing CopyOffset"]
	CopyRot_ui .
    }
}
