--- gdb/gdbtk/library/tfind_args.tcl Sun Feb 6 19:19:42 2000 +++ gdb/gdbtk/library/tfind_args.tcl Wed May 17 00:11:49 2006 @@ -29,9 +29,10 @@ # ---------------------------------------------------------------------- -itcl_class TfindArgs { +itcl::class TfindArgs { # ------------------------------------------------------------------ # CONSTRUCTOR - create new tfind arguments dialog # ------------------------------------------------------------------ - constructor {config} { + constructor args { + eval configure $args # # Create a window with the same name as this object --- gdb/gdbtk/library/ehandler.itb Tue Oct 15 17:19:51 2002 +++ gdb/gdbtk/library/ehandler.itb Wed May 17 00:12:55 2006 @@ -23,5 +23,5 @@ # invoke event handlers - foreach w [itcl_info objects -isa GDBEventHandler] { + foreach w [itcl::find objects -isa GDBEventHandler] { dbug I "posting event \"$handler\" to \"$w\"" if {[catch {$w $handler $event}]} { --- gdb/gdbtk/library/managedwin.itb Fri Aug 27 19:13:14 2004 +++ gdb/gdbtk/library/managedwin.itb Wed May 17 00:13:32 2006 @@ -76,5 +76,5 @@ itcl::body ManagedWin::window_instance {ins} { set win_instance $ins - foreach obj [itcl_info objects -isa ManagedWin] { + foreach obj [itcl::find objects -isa ManagedWin] { debug "$obj ManagedWin::_wname" $obj window_name "" @@ -134,5 +134,5 @@ # call the reconfig method for each object - foreach obj [itcl_info objects -isa ManagedWin] { + foreach obj [itcl::find objects -isa ManagedWin] { if {[catch {$obj reconfig} msg]} { dbug W "reconfig failed for $obj - $msg" @@ -148,5 +148,5 @@ itcl::body ManagedWin::shutdown {} { set activeWins {} - foreach win [itcl_info objects -isa ManagedWin] { + foreach win [itcl::find objects -isa ManagedWin] { if {![$win isa ModalDialog] && ![$win _ignore_on_save]} { set g [wm geometry [winfo toplevel [namespace tail $win]]] @@ -221,5 +221,5 @@ if {!$force} { # check all windows for one of this type - foreach obj [itcl_info objects -isa ManagedWin] { + foreach obj [itcl::find objects -isa ManagedWin] { if {[$obj isa $class]} { $obj reveal @@ -364,5 +364,5 @@ debug "$win" set res "" - foreach obj [itcl_info objects -isa ManagedWin] { + foreach obj [itcl::find objects -isa ManagedWin] { if {[$obj isa $win]} { lappend res $obj --- libgui/library/balloon.tcl Mon Feb 10 04:21:40 2003 +++ libgui/library/balloon.tcl Thu Jun 28 15:39:09 2007 @@ -8,34 +8,34 @@ # * Likewise, balloon positioning on Windows is a hack. -itcl_class Balloon { +itcl::class Balloon { # Name of associated global variable which should be set whenever # the help is shown. - public variable {} + public variable variable {} # Name of associated toplevel. Private variable. - protected _top {} + protected variable _top {} # This is non-empty if there is an after script pending. Private # method. - protected _after_id {} + protected variable _after_id {} # This is an array mapping window name to help text. - protected _help_text + protected variable _help_text # This is an array mapping window name to notification proc. - protected _notifiers + protected variable _notifiers # This is set to the name of the parent widget whenever the mouse is # in a widget with balloon help. - protected _active {} + protected variable _active {} # This is true when we're already calling a notification proc. # Private variable. - protected _in_notifier 0 + protected variable _in_notifier 0 # This holds the parent of the most recently entered widget. It is # used to determine when the user is moving through a toolbar. # Private variable. - protected _recent_parent {} + protected variable _recent_parent {} constructor {top} { --- libgui/library/cframe.tcl Sat Sep 8 18:34:46 2001 +++ libgui/library/cframe.tcl Thu Jun 28 15:39:50 2007 @@ -3,5 +3,5 @@ # Written by Tom Tromey . -itcl_class Checkframe { +itcl::class Checkframe { inherit Widgetframe @@ -14,5 +14,5 @@ # trace when the variable changes (or is deleted). Private # variable. - protected _saved_variable {} + protected variable _saved_variable {} # The checkbutton variable. @@ -45,5 +45,5 @@ # This holds a list of all widgets which should be immune to # enabling/disabling. Private variable. - protected _avoid {} + protected variable _avoid {} constructor {config} { --- libgui/library/lframe.tcl Sat Sep 8 18:34:46 2001 +++ libgui/library/lframe.tcl Thu Jun 28 15:32:04 2007 @@ -3,5 +3,5 @@ # Written by Tom Tromey . -itcl_class Labelledframe { +itcl::class Labelledframe { inherit Widgetframe --- libgui/library/multibox.tcl Sat Sep 8 18:34:46 2001 +++ libgui/library/multibox.tcl Thu Jun 28 15:39:58 2007 @@ -7,5 +7,5 @@ # * Should support itemcget, itemconfigure. -itcl_class Multibox { +itcl::class Multibox { # The selection mode. public selectmode browse { @@ -20,5 +20,5 @@ # This is a list of all the listbox widgets we've created. Private # variable. - protected _listboxen {} + protected variable _listboxen {} # Tricky: take the class bindings for the Listbox widget and turn --- libgui/library/sendpr.tcl Tue Feb 5 18:16:14 2002 +++ libgui/library/sendpr.tcl Thu Jun 28 15:32:04 2007 @@ -14,5 +14,5 @@ defarray SENDPR_state -itcl_class Sendpr { +itcl::class Sendpr { inherit Ide_window --- libgui/library/ventry.tcl Sat Sep 8 18:34:46 2001 +++ libgui/library/ventry.tcl Thu Jun 28 15:32:04 2007 @@ -3,5 +3,5 @@ # Written by Tom Tromey . -itcl_class Validated_entry { +itcl::class Validated_entry { # The validation command. It is passed the contents of the entry. # It should throw an error if there is a problem; the error text --- libgui/library/wframe.tcl Sat Sep 8 18:34:46 2001 +++ libgui/library/wframe.tcl Thu Jun 28 15:40:07 2007 @@ -3,5 +3,5 @@ # Written by Tom Tromey . -itcl_class Widgetframe { +itcl::class Widgetframe { # Where to put the widget. For now, we don't support many anchors. # Augment as you like. @@ -15,5 +15,5 @@ # The name of the widget to put on the frame. This is set by some # subclass calling the _add method. Private variable. - protected _widget {} + protected variable _widget {} constructor {config} { --- libgui/library/pkgIndex.tcl 2003-02-04 02:33:38.000000000 -0500 +++ libgui/library/pkgIndex.tcl 2010-12-02 23:33:05.000000000 -0500 @@ -9,4 +9,4 @@ # full path name of this file's directory. -package ifneeded combobox 2.2.1 [list source [file join $dir combobox.tcl]] +package ifneeded combobox 2.3 [list source [file join $dir combobox.tcl]] package ifneeded debug 1.0 [list source [file join $dir debug.tcl]]