[Poet-commit] SF.net SVN: poet:[40] trunk
Brought to you by:
mercurio
|
From: <mer...@us...> - 2008-10-10 01:02:29
|
Revision: 40
http://poet.svn.sourceforge.net/poet/?rev=40&view=rev
Author: mercurio
Date: 2008-10-10 01:02:16 +0000 (Fri, 10 Oct 2008)
Log Message:
-----------
Fixed problem with Tk_SpinBox that was preventing
setting the from and to slots separately. Now, if
you attempt to set from to a value greater than to,
to will be set as well (similarly for setting to
less than from).
Also changed some of the typehints to pick better
default ranges for things like canvas item widths.
Only the Windows (tier2a-win32) autogen'd files are
up to date, other platforms will have to run
Assimilate Tk from the developer's panel on the installer.
Modified Paths:
--------------
trunk/instlib/typehints/mergedhints.tcl
trunk/lib/tier2a-win32/tier2a-tk_button.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl
trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_entry.tcl
trunk/lib/tier2a-win32/tier2a-tk_frame.tcl
trunk/lib/tier2a-win32/tier2a-tk_label.tcl
trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl
trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl
trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_message.tcl
trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl
trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_scale.tcl
trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl
trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl
trunk/lib/tier2a-win32/tier2a-tk_text.tcl
trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl
trunk/lib/tier2a-win32/tier2a-ttk_button.tcl
trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl
trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl
trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl
trunk/lib/tier2a-win32/tier2a-ttk_label.tcl
trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl
trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl
trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl
trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl
trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl
trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl
trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl
trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl
trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl
trunk/lib/tier2b/tier2b-tk_spinbox.tcl
trunk/testing/debug.poet/Thing_AnonCounter.thg
trunk/testing/debug.poet/tclIndex
Modified: trunk/instlib/typehints/mergedhints.tcl
===================================================================
--- trunk/instlib/typehints/mergedhints.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/instlib/typehints/mergedhints.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -177,7 +177,7 @@
set TypeHints(common,activeoutline) "<color>"
set TypeHints(common,activeoutlinestipple) "<bitmap>"
set TypeHints(common,activestipple) "<bitmap>"
-set TypeHints(common,activewidth) "<real>"
+set TypeHints(common,activewidth) "<real> 0 10 .1"
set TypeHints(common,arrow) "<choice> none first last both"
set TypeHints(common,arrowshape) "<string>"
set TypeHints(common,background) "<color>"
@@ -194,7 +194,7 @@
set TypeHints(common,disabledoutline) "<color>"
set TypeHints(common,disabledoutlinestipple) "<bitmap>"
set TypeHints(common,disabledstipple) "<bitmap>"
-set TypeHints(common,disabledwidth) "<real>"
+set TypeHints(common,disabledwidth) "<real> 0 10 .1"
set TypeHints(common,exportselection) "<boolean>"
set TypeHints(common,fill) "<color>"
set TypeHints(common,font) "<font>"
@@ -327,7 +327,7 @@
set TypeHints(tkCanvArc.c,font) "<font>"
set TypeHints(tkCanvArc.c,foreground) "<color>"
set TypeHints(tkCanvArc.c,format) "<string>"
-set TypeHints(tkCanvArc.c,from) "<real>"
+set TypeHints(tkCanvArc.c,from) "<real> -360 360 1"
set TypeHints(tkCanvArc.c,handlepad) "<pixels>"
set TypeHints(tkCanvArc.c,handlesize) "<pixels>"
set TypeHints(tkCanvArc.c,height) "<pixels>"
@@ -338,7 +338,7 @@
set TypeHints(tkCanvArc.c,highlightthickness) "<pixels>"
set TypeHints(tkCanvArc.c,image) "<string>"
set TypeHints(tkCanvArc.c,inactiveselectbackground) "<color>"
-set TypeHints(tkCanvArc.c,increment) "<real>"
+set TypeHints(tkCanvArc.c,increment) "<real> 0 2 0.1"
set TypeHints(tkCanvArc.c,indicatoron) "<boolean>"
set TypeHints(tkCanvArc.c,insertbackground) "<color>"
set TypeHints(tkCanvArc.c,insertborderwidth) "<pixels>"
@@ -385,7 +385,7 @@
set TypeHints(tkCanvArc.c,spacing1) "<pixels>"
set TypeHints(tkCanvArc.c,spacing2) "<pixels>"
set TypeHints(tkCanvArc.c,spacing3) "<pixels>"
-set TypeHints(tkCanvArc.c,start) "<real>"
+set TypeHints(tkCanvArc.c,start) "<real> -360 360 1"
set TypeHints(tkCanvArc.c,state) "<choice> normal disabled hidden"
set TypeHints(tkCanvArc.c,stipple) "<bitmap>"
set TypeHints(tkCanvArc.c,style) "<choice> pieslice chord arc"
@@ -396,9 +396,9 @@
set TypeHints(tkCanvArc.c,tearoffcommand) "<string>"
set TypeHints(tkCanvArc.c,text) "<string>"
set TypeHints(tkCanvArc.c,textvariable) "<variable>"
-set TypeHints(tkCanvArc.c,tickinterval) "<real>"
+set TypeHints(tkCanvArc.c,tickinterval) "<real> 0 5 0.1"
set TypeHints(tkCanvArc.c,title) "<string>"
-set TypeHints(tkCanvArc.c,to) "<real>"
+set TypeHints(tkCanvArc.c,to) "<real> -360 360 1"
set TypeHints(tkCanvArc.c,tristateimage) "<string>"
set TypeHints(tkCanvArc.c,tristatevalue) "<string>"
set TypeHints(tkCanvArc.c,troughcolor) "<color>"
@@ -409,7 +409,7 @@
set TypeHints(tkCanvArc.c,values) "<string>"
set TypeHints(tkCanvArc.c,variable) "<variable>"
set TypeHints(tkCanvArc.c,visual) "<string>"
-set TypeHints(tkCanvArc.c,width) "<real>"
+set TypeHints(tkCanvArc.c,width) "<real> 0.1 10 0.1"
set TypeHints(tkCanvArc.c,wraplength) "<pixels>"
set TypeHints(tkCanvArc.c,xscrollcommand) "<string>"
set TypeHints(tkCanvArc.c,xscrollincrement) "<pixels>"
@@ -430,7 +430,7 @@
set TypeHints(tkCanvBmap.c,autoseparators) "<boolean>"
set TypeHints(tkCanvBmap.c,background) "<color>"
set TypeHints(tkCanvBmap.c,before) "<string>"
-set TypeHints(tkCanvBmap.c,bigincrement) "<real>"
+set TypeHints(tkCanvBmap.c,bigincrement) "<real> 0 100 1"
set TypeHints(tkCanvBmap.c,bitmap) "<bitmap>"
set TypeHints(tkCanvBmap.c,blockcursor) "<boolean>"
set TypeHints(tkCanvBmap.c,borderwidth) "<pixels>"
@@ -814,7 +814,7 @@
set TypeHints(tkCanvLine.c,values) "<string>"
set TypeHints(tkCanvLine.c,variable) "<variable>"
set TypeHints(tkCanvLine.c,visual) "<string>"
-set TypeHints(tkCanvLine.c,width) "<real>"
+set TypeHints(tkCanvLine.c,width) "<real> 0.1 10 0.1"
set TypeHints(tkCanvLine.c,wraplength) "<pixels>"
set TypeHints(tkCanvLine.c,xscrollcommand) "<string>"
set TypeHints(tkCanvLine.c,xscrollincrement) "<pixels>"
@@ -949,7 +949,7 @@
set TypeHints(tkCanvPoly.c,values) "<string>"
set TypeHints(tkCanvPoly.c,variable) "<variable>"
set TypeHints(tkCanvPoly.c,visual) "<string>"
-set TypeHints(tkCanvPoly.c,width) "<real>"
+set TypeHints(tkCanvPoly.c,width) "<real> 0.1 10 0.1"
set TypeHints(tkCanvPoly.c,wraplength) "<pixels>"
set TypeHints(tkCanvPoly.c,xscrollcommand) "<string>"
set TypeHints(tkCanvPoly.c,xscrollincrement) "<pixels>"
@@ -1987,7 +1987,7 @@
set TypeHints(tkRectOval.c,values) "<string>"
set TypeHints(tkRectOval.c,variable) "<variable>"
set TypeHints(tkRectOval.c,visual) "<string>"
-set TypeHints(tkRectOval.c,width) "<real>"
+set TypeHints(tkRectOval.c,width) "<real> 0.1 10 0.1"
set TypeHints(tkRectOval.c,wraplength) "<pixels>"
set TypeHints(tkRectOval.c,xscrollcommand) "<string>"
set TypeHints(tkRectOval.c,xscrollincrement) "<pixels>"
Modified: trunk/lib/tier2a-win32/tier2a-tk_button.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_button.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_button.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_arc.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Arc type activewidth <real>
+Tk_Canvas_Arc type activewidth {<real> 0 10 .1}
Tk_Canvas_Arc slot> dash {} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Arc type disabledwidth <real>
+Tk_Canvas_Arc type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Arc slot> extent {90} {
set p [$self slot _primary]
@@ -264,7 +264,7 @@
}
}
-Tk_Canvas_Arc type start <real>
+Tk_Canvas_Arc type start {<real> -360 360 1}
Tk_Canvas_Arc slot> state {} {
set p [$self slot _primary]
@@ -319,7 +319,7 @@
}
}
-Tk_Canvas_Arc type width <real>
+Tk_Canvas_Arc type width {<real> 0.1 10 0.1}
Tk_Canvas_Arc slot primaryClass arc
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_bitmap.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_image.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_line.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -77,7 +77,7 @@
}
}
-Tk_Canvas_Line type activewidth <real>
+Tk_Canvas_Line type activewidth {<real> 0 10 .1}
Tk_Canvas_Line slot> arrow {none} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Line type disabledwidth <real>
+Tk_Canvas_Line type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Line slot> joinstyle {round} {
set p [$self slot _primary]
@@ -275,7 +275,7 @@
}
}
-Tk_Canvas_Line type width <real>
+Tk_Canvas_Line type width {<real> 0.1 10 0.1}
Tk_Canvas_Line slot primaryClass line
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_oval.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Oval type activewidth <real>
+Tk_Canvas_Oval type activewidth {<real> 0 10 .1}
Tk_Canvas_Oval slot> dash {} {
set p [$self slot _primary]
@@ -286,7 +286,7 @@
}
}
-Tk_Canvas_Oval type width <real>
+Tk_Canvas_Oval type width {<real> 0.1 10 0.1}
Tk_Canvas_Oval slot primaryClass oval
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_polygon.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Polygon type activewidth <real>
+Tk_Canvas_Polygon type activewidth {<real> 0 10 .1}
Tk_Canvas_Polygon slot> dash {} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Polygon type disabledwidth <real>
+Tk_Canvas_Polygon type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Polygon slot> fill {black} {
set p [$self slot _primary]
@@ -319,7 +319,7 @@
}
}
-Tk_Canvas_Polygon type width <real>
+Tk_Canvas_Polygon type width {<real> 0.1 10 0.1}
Tk_Canvas_Polygon slot primaryClass polygon
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_rectangle.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Rectangle type activewidth <real>
+Tk_Canvas_Rectangle type activewidth {<real> 0 10 .1}
Tk_Canvas_Rectangle slot> dash {} {
set p [$self slot _primary]
@@ -286,7 +286,7 @@
}
}
-Tk_Canvas_Rectangle type width <real>
+Tk_Canvas_Rectangle type width {<real> 0.1 10 0.1}
Tk_Canvas_Rectangle slot primaryClass rectangle
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_window.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_entry.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_entry.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_entry.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_frame.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_frame.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_frame.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_label.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_label.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_label.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_cascade.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_command.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_message.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_message.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_message.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_message.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_scale.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_scale.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_scale.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_text.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_text.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_text.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_toplevel.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_button.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_button.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_button.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_label.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_label.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_label.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_sizegrip.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_treeview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2b/tier2b-tk_spinbox.tcl
===================================================================
--- trunk/lib/tier2b/tier2b-tk_spinbox.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2b/tier2b-tk_spinbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -4,8 +4,13 @@
### Each of the attributes of a spinbox is represented
### by a write-active slot of the same name on this object.
###
-### This object has no additional methods. Refer to the
-### manual for spinbox for more info.
+### This object has some methods that override the defaults
+### to make it possible to set ``from`` and ``to`` separately.
+### If you set the ``from`` value to something greater than
+### ``to``, ``to`` will also be set to that. Similar behavior
+### happens if you try to set ``to`` to less than ``from``.
+###
+### Otherwise, see the manual for spinbox for more info.
##
## Do not remove these lines:
##
@@ -13,10 +18,33 @@
TkWidget construct Tk_SpinBox
::Poet::loadlib tier2a-tk_spinbox
##
-## Add any additional methods for Tk_SpinBox here. This file will
-## not be overwritten if it exists when assimilate is run.
+## See the comment above as to why we do this.
##
-## If you add stuff here, fix the comment above.
-##
+# Override autogen'd version for safety
+#
+Tk_SpinBox slot> from {0} {
+ set p [$self slot _primary]
+ if {$p eq ""} return
+ set to [$p cget -to]
+ if {$to < $value} {
+ $p configure -from $value -to $value
+ } else {
+ $p configure -from $value
+ }
+}
+
+# Override autogen'd version for safety
+#
+Tk_SpinBox slot> to {0} {
+ set p [$self slot _primary]
+ if {$p eq ""} return
+
+ set from [$p cget -from]
+ if {$from > $value} {
+ $p configure -from $value -to $value
+ } else {
+ $p configure -to $value
+ }
+}
Modified: trunk/testing/debug.poet/Thing_AnonCounter.thg
===================================================================
--- trunk/testing/debug.poet/Thing_AnonCounter.thg 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/testing/debug.poet/Thing_AnonCounter.thg 2008-10-10 01:02:16 UTC (rev 40)
@@ -1,17 +1,17 @@
-## Persistent storage for Thing_AnonCounter.
-## Do not edit this file!
-##
-
-
-Thing construct Thing_AnonCounter
-
-
-
-
-
-Thing_AnonCounter slot loaded "0"
-Thing_AnonCounter slot n "@1"
-Thing_AnonCounter slot nDel "1"
-Thing_AnonCounter slot saved "0"
-
-Thing_AnonCounter Thing_postload
+## Persistent storage for Thing_AnonCounter.
+## Do not edit this file!
+##
+
+
+Thing construct Thing_AnonCounter
+
+
+
+
+
+Thing_AnonCounter slot loaded "0"
+Thing_AnonCounter slot n "@1"
+Thing_AnonCounter slot nDel "1"
+Thing_AnonCounter slot saved "0"
+
+Thing_AnonCounter Thing_postload
Modified: trunk/testing/debug.poet/tclIndex
===================================================================
--- trunk/testing/debug.poet/tclIndex 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/testing/debug.poet/tclIndex 2008-10-10 01:02:16 UTC (rev 40)
@@ -1,12 +1,12 @@
-# Tcl autoload index file, version 2.0
-# This file is generated by ThingPool (Poet Tier 1)
-# and sourced to set up indexing information for one or
-# more Poet objects. Typically each line is a command that
-# sets an element in the auto_index array, where the
-# element name is the name of a command and the value is
-# a script that loads the command.
-#
-# Note: the comment after some lines is used by ThingPool list
-
-
-set auto_index(Thing_AnonCounter) [list source [file join $dir Thing_AnonCounter.thg]] ;# parent: Thing
+# Tcl autoload index file, version 2.0
+# This file is generated by ThingPool (Poet Tier 1)
+# and sourced to set up indexing information for one or
+# more Poet objects. Typically each line is a command that
+# sets an element in the auto_index array, where the
+# element name is the name of a command and the value is
+# a script that loads the command.
+#
+# Note: the comment after some lines is used by ThingPool list
+
+
+set auto_index(Thing_AnonCounter) [list source [file join $dir Thing_AnonCounter.thg]] ;# parent: Thing
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|