1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
--- 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 <tromey@cygnus.com>.
-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 <tromey@cygnus.com>.
-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 <tromey@cygnus.com>.
-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 <tromey@cygnus.com>.
-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} {
|
