ascend4/TK/probe.tcl

#  probe.tcl
#  by Benjamin A. Allan and Kirk A. Abbott
#  Created: January 1994
#  Part of ASCEND
#  Revision: $Revision: 1.27 $
#  Last modified on: $Date: 1998/06/18 15:55:37 $
#  Last modified by: $Author: mthomas $
#  Revision control file: $RCSfile: probe.tcl,v $
#
#  This file is part of the ASCEND Tcl/Tk Interface.
#
#  Copyright (C) 1994-1998 Carnegie Mellon University
#
#  The ASCEND Tcl/Tk Interface is free software; you can redistribute
#  it and/or modify it under the terms of the GNU General Public
#  License as published by the Free Software Foundation; either
#  version 2 of the License, or (at your option) any later version.
#
#  The ASCEND Tcl/Tk Interface is distributed in hope that it will be
#  useful, but WITHOUT ANY WARRANTY; without even the implied warranty
#  of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with the program; if not, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA.  Check the
#  file named COPYING.  COPYING is found in ../compiler.

# Module: probe.tcl
# Tcl version: 7.1 (Tcl/Tk/XF)
# Tk version: 3.4
# XF version: 2.2
#

# module contents
global moduleList
global autoLoadList
set moduleList(probe.tcl) { .probe}
set autoLoadList(probe.tcl) {0}

# procedures to show toplevel windows


# procedure to show window ShowWindow.probe
# proc ShowWindow.probe { args}
proc ShowWindow.probe {args} {
# xf ignore me 7

  global env
  global ascGlobalVect
  global ascProbVect

  StartupSrc.probe

  # build widget .probe
  if {"[info procs XFEdit]" != ""} {
    catch "XFDestroy .probe"
  } {
    catch "destroy .probe"
  }
  toplevel .probe

  # Ascend patched window manager configurations
  wm iconify .probe
  wm positionfrom .probe user
  wm sizefrom .probe user
  wm iconname .probe {Probe}
  wm minsize .probe 100 100
  wm title .probe {A4 Probe}
  wm protocol .probe WM_DELETE_WINDOW {Toggle_Remote ascProbVect}


  # build widget .probe.main_frm
  frame .probe.main_frm \
    -borderwidth 0 \
    -relief {raised}

  build_probebox .probe.main_frm 0 $ascGlobalVect(font)

  # pack widget .probe.main_frm
  pack append .probe.main_frm \
    .probe.main_frm.probe_box_0 {top frame center expand fill}


  #
  # Build the menu bar and submenus
  #
  menu .probe.menubar \
    -tearoffcommand .PROBE.MENUBAR \
    -tearoff 0

  # The Edit menu
  menu .probe.menubar.edit \
    -tearoffcommand .PROBE.MENUBAR.EDIT \
    -tearoff 0
  .probe.menubar.edit add command \
    -command {Probe_do_SelectAll} \
    -label {Highlight all} \
    -accelerator {Alt-e h} \
    -underline 0
  .probe.menubar.edit add command \
    -command {Probe_do_RemoveSelections} \
    -label {Remove selected names} \
    -accelerator {Alt-e s} \
    -underline 7
  .probe.menubar.edit add command \
    -command {Probe_do_RemoveAll} \
    -label {Remove all names} \
    -accelerator {Alt-e a} \
    -underline 7
  .probe.menubar.edit add command \
    -command {Probe_do_RemoveUncertain} \
    -label {Remove UNCERTAIN names} \
    -accelerator {Alt-e u} \
    -underline 7
  .probe.menubar.edit add command \
    -command {Probe_do_Copy} \
    -accelerator {Alt-e c} \
    -label {Copy} \
    -underline 0


  # The Export menu
  menu .probe.menubar.export \
    -tearoffcommand .PROBE.MENUBAR.EXPORT \
    -tearoff 0
  .probe.menubar.export add command \
    -command {Probe_do_Export2Browser}  \
    -accelerator {Alt-x b} \
    -label {to Browser} \
    -underline 3
  .probe.menubar.export add command \
    -command {Probe_do_Export2Display} \
    -accelerator {Alt-x d} \
    -label {to Display} \
    -underline 3


  # The File menu
  menu .probe.menubar.file \
    -tearoffcommand .PROBE.MENUBAR.FILE \
    -tearoff 0
  .probe.menubar.file add command \
    -command {Probe_do_NewBuffer} \
    -label {New buffer...} \
    -accelerator {Alt-f n} \
    -underline 0
  .probe.menubar.file add command \
    -command {Probe_do_ReadFile} \
    -label {Read...} \
    -accelerator {Alt-f r} \
    -underline 0
  .probe.menubar.file add command \
    -command {Probe_do_WriteBuf} \
    -label {Save...} \
    -accelerator {Alt-f s} \
    -underline 0
  .probe.menubar.file add command \
    -command {Probe_do_WriteBufAs} \
    -label {Save As...} \
    -accelerator {Alt-f a} \
    -underline 5
  .probe.menubar.file add command \
    -command {Probe_do_Print} \
    -label {Print...} \
    -accelerator {Alt-f p} \
    -underline 0
  .probe.menubar.file add command \
    -command {Toggle_Remote ascProbVect} \
    -accelerator {Alt-f c} \
    -label {Close window} \
    -underline 0
  .probe.menubar.file add command \
    -command {Script_do_Exit} \
    -label {Exit ASCEND...} \
    -accelerator {Alt-f e} \
    -underline 0
  .probe.menubar.file add separator


  # The Help menu
  menu .probe.menubar.help \
    -tearoffcommand .PROBE.MENUBAR.HELP \
    -tearoff 0
  .probe.menubar.help add command \
    -command {Probe_do_Help} \
    -label {On Probe} \
    -underline 3


  # The View menu
  menu .probe.menubar.view \
    -tearoffcommand .PROBE.MENUBAR.VIEW \
    -tearoff 0
  .probe.menubar.view add command  \
    -command {Probe_do_Font}  \
    -label {Font ...} \
    -accelerator {Alt-v f} \
    -underline 0
  .probe.menubar.view add checkbutton \
    -offvalue {0} \
    -onvalue {1} \
    -variable {ascProbVect(visibility)} \
    -accelerator {Alt-v o} \
    -label {Open automatically} \
    -underline 0
 .probe.menubar.view add command  \
    -command {View_Set_Save_Options probe}  \
    -label {Save window appearance} \
    -accelerator {Alt-v s} \
    -underline 0


  #
  # Add the menus as cascades of the toplevel's menu;
  # add the toplevel's menu to the toplevel
  #
  .probe.menubar add cascade \
    -menu .probe.menubar.file \
    -label {File} \
    -underline 0
  .probe.menubar add cascade \
    -menu .probe.menubar.edit \
    -label {Edit} \
    -underline 0
  .probe.menubar add cascade \
    -menu .probe.menubar.view \
    -label {View} \
    -underline 0
  .probe.menubar add cascade \
    -menu .probe.menubar.export \
    -label {Export} \
    -underline 1
  .probe.menubar add cascade \
    -menu .probe.menubar.help \
    -label {Help} \
    -underline 0
  .probe configure \
    -menu .probe.menubar


  # build frame and entry at bottom of window to hold current buffer name
  frame .probe.buffer_frm \
    -borderwidth {2} \
    -relief {raised}

  entry .probe.buffer_frm.buffer_entry \
    -relief {raised} \
    -width {24} \
    -state {disabled} \
    -exportselection 0 \
    -textvariable ascProbVect(filename) \
    -font $ascProbVect(font)

  pack append .probe.buffer_frm \
    .probe.buffer_frm.buffer_entry {left frame center expand fillx}


  #
  #  Pack the widgets into the probe toplevel
  #
  pack append .probe \
    .probe.main_frm {top frame center expand fill} \
    .probe.buffer_frm {top frame center fillx}

  EndSrc.probe

  if {"[info procs XFEdit]" != ""} {
    catch "XFMiscBindWidgetTree .probe"
    after 2 "catch {XFEditSetShowWindows}"
  }
}

# proc DestroyWindow.probe {}
proc DestroyWindow.probe {} {# xf ignore me 7
  if {"[info procs XFEdit]" != ""} {
    if {"[info commands .probe]" != ""} {
      global xfShowWindow.probe
      set xfShowWindow.probe 0
      XFEditSetPath .
      after 2 "XFSaveAsProc .probe; XFEditSetShowWindows"
    }
  } {
    catch "destroy .probe"
    update
  }
}

# proc StartupSrc.probe {args}
# probe startup entrance
# as much of the C/global dependencies managed here as possible
proc StartupSrc.probe {args} {

  global env
  global ascGlobalVect
  global ascProbVect
 
  if {[info procs Probe_bindListbox] != "Probe_bindListbox"} {
    proc Probe_bindListbox {args} {
      error "Driver needs to define Probe_bindListbox!"
    }
  }

  if {[catch {set ascProbVect(windowname)} ]} {
    set ascProbVect(minsize) 100x100
    set ascProbVect(geometry) 200x400+10+10
    set ascProbVect(iconname) Probe
    set ascProbVect(initialstate) normal
    set ascProbVect(font) "courier 12 bold"
  }
  if {[catch {set ascGlobalVect(font)} ]} {
    set ascGlobalVect(font) "courier 10 bold"
    set ascGlobalVect(labelfont) "courier 12 bold"
    set ascGlobalVect(tbg) "white"
    set ascGlobalVect(tfg) "black"
    set ascGlobalVect(bg) "white"
    set ascGlobalVect(fg) "black"
    set ascGlobalVect(afg) "white"
    set ascGlobalVect(abg) "black"
    set ascGlobalVect(sfg) "white"
    set ascGlobalVect(sbg) "black"
    set ascGlobalVect(visibility) 1
    set ascGlobalVect(c_loaded) "0"
    set ascGlobalVect(toolbitmap) \
      "@$env(ASCENDBITMAPS)/toolAttributes.xbm"
  }
}

# proc EndSrc.probe {}
proc EndSrc.probe {} {
# probe startup exit
global ascProbVect
  set ascProbVect(geometry) [sanegeometry $ascProbVect(geometry)]
  set minw [lindex [split $ascProbVect(minsize) x] 0]
  set minh [lindex [split $ascProbVect(minsize) x] 1]
  set gw [lindex [split [lindex [split $ascProbVect(geometry) +] 0] x] 0]
  set gh [lindex [split [lindex [split $ascProbVect(geometry) +] 0] x] 1]
  set gp "+[lindex [split [split $ascProbVect(geometry) x] +] 1]+[lindex [split [split $ascProbVect(geometry) x] +] 2]"
  if {[expr $gw < $minw]} {set gw $minw}
  if {[expr $gh < $minh]} {set gh $minh}
  set gwh "${gw}x${gh}"
  wm positionfrom .probe user
  wm sizefrom .probe user
  wm minsize .probe $minw $minh
  wm geometry .probe [osgpos $gwh$gp]
  wm iconname .probe $ascProbVect(iconname)

  if {$ascProbVect(initialstate)!="iconic" && \
      $ascProbVect(initialstate)!="iconified" &&
      $ascProbVect(initialstate)!="withdrawn"} {
    wm deiconify .probe
  }
  if {"$ascProbVect(initialstate)"=="withdrawn"} {
    wm withdraw .probe
  }

}


# proc build_probebox {parentname winnum font}
#---------------------------------------------------------------------------
# creates a listbox widget with scrollbars in the context
# of parentname, if same does not already exist.
# the name of the listbox widget is
# $parentname.probe_box_$winnum
# returns the name $parentname.script_box_$winnum
# The widget with this name has a child named listbox1.
# scrollbars are done with bg/fg colors
# text is done with tbg/tfg, sbg/sfg for plain and selected text,
# respectively.
# if the widget already exists, recolors it from the given input.
#---------------------------------------------------------------------------
#
proc build_probebox {parentname winnum font} {
  if { ! [winfo exists  $parentname.probe_box_$winnum] } {
    # It does not exist, build it.

    # build Frame to hold scrollbars and listbox
    frame $parentname.probe_box_$winnum

    # build Verticle Scrollbar
    scrollbar $parentname.probe_box_$winnum.scrollbarV \
      -command "$parentname.probe_box_$winnum.listbox1 yview"

    # build Horizontal Scrollbar
    scrollbar $parentname.probe_box_$winnum.scrollbarH \
      -command "$parentname.probe_box_$winnum.listbox1 xview" \
      -orient {horizontal}

    # build Listbox to hold probe variables
    listbox $parentname.probe_box_$winnum.listbox1 \
      -relief {raised} \
      -xscrollcommand "$parentname.probe_box_$winnum.scrollbarH set" \
      -yscrollcommand "$parentname.probe_box_$winnum.scrollbarV set" \
      -width 1 \
      -height 1 \
      -font $font \
      -exportselection 0 \
      -selectmode extended

    # pack widget $parentname.probe_box_$winnum
    pack append $parentname.probe_box_$winnum \
      $parentname.probe_box_$winnum.scrollbarV {right frame center filly} \
      $parentname.probe_box_$winnum.listbox1 {top frame center expand fill} \
      $parentname.probe_box_$winnum.scrollbarH {bottom frame center fillx}
  }

  $parentname.probe_box_$winnum.listbox1 configure \
    -font $font
 
  return $parentname.probe_box_$winnum
}


# Internal procedures

# eof
#

1	# probe.tcl
2	# by Benjamin A. Allan and Kirk A. Abbott
3	# Created: January 1994
4	# Part of ASCEND
5	# Revision: $Revision: 1.27 $
6	# Last modified on: $Date: 1998/06/18 15:55:37 $
7	# Last modified by: $Author: mthomas $
8	# Revision control file: $RCSfile: probe.tcl,v $
9	#
10	# This file is part of the ASCEND Tcl/Tk Interface.
11	#
12	# Copyright (C) 1994-1998 Carnegie Mellon University
13	#
14	# The ASCEND Tcl/Tk Interface is free software; you can redistribute
15	# it and/or modify it under the terms of the GNU General Public
16	# License as published by the Free Software Foundation; either
17	# version 2 of the License, or (at your option) any later version.
18	#
19	# The ASCEND Tcl/Tk Interface is distributed in hope that it will be
20	# useful, but WITHOUT ANY WARRANTY; without even the implied warranty
21	# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22	# GNU General Public License for more details.
23	#
24	# You should have received a copy of the GNU General Public License
25	# along with the program; if not, write to the Free Software
26	# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check the
27	# file named COPYING. COPYING is found in ../compiler.
28
29	# Module: probe.tcl
30	# Tcl version: 7.1 (Tcl/Tk/XF)
31	# Tk version: 3.4
32	# XF version: 2.2
33	#
34
35	# module contents
36	global moduleList
37	global autoLoadList
38	set moduleList(probe.tcl) { .probe}
39	set autoLoadList(probe.tcl) {0}
40
41	# procedures to show toplevel windows
42
43
44	# procedure to show window ShowWindow.probe
45	# proc ShowWindow.probe { args}
46	proc ShowWindow.probe {args} {
47	# xf ignore me 7
48
49	global env
50	global ascGlobalVect
51	global ascProbVect
52
53	StartupSrc.probe
54
55	# build widget .probe
56	if {"[info procs XFEdit]" != ""} {
57	catch "XFDestroy .probe"
58	} {
59	catch "destroy .probe"
60	}
61	toplevel .probe
62
63	# Ascend patched window manager configurations
64	wm iconify .probe
65	wm positionfrom .probe user
66	wm sizefrom .probe user
67	wm iconname .probe {Probe}
68	wm minsize .probe 100 100
69	wm title .probe {A4 Probe}
70	wm protocol .probe WM_DELETE_WINDOW {Toggle_Remote ascProbVect}
71
72
73	# build widget .probe.main_frm
74	frame .probe.main_frm \
75	-borderwidth 0 \
76	-relief {raised}
77
78	build_probebox .probe.main_frm 0 $ascGlobalVect(font)
79
80	# pack widget .probe.main_frm
81	pack append .probe.main_frm \
82	.probe.main_frm.probe_box_0 {top frame center expand fill}
83
84
85	#
86	# Build the menu bar and submenus
87	#
88	menu .probe.menubar \
89	-tearoffcommand .PROBE.MENUBAR \
90	-tearoff 0
91
92	# The Edit menu
93	menu .probe.menubar.edit \
94	-tearoffcommand .PROBE.MENUBAR.EDIT \
95	-tearoff 0
96	.probe.menubar.edit add command \
97	-command {Probe_do_SelectAll} \
98	-label {Highlight all} \
99	-accelerator {Alt-e h} \
100	-underline 0
101	.probe.menubar.edit add command \
102	-command {Probe_do_RemoveSelections} \
103	-label {Remove selected names} \
104	-accelerator {Alt-e s} \
105	-underline 7
106	.probe.menubar.edit add command \
107	-command {Probe_do_RemoveAll} \
108	-label {Remove all names} \
109	-accelerator {Alt-e a} \
110	-underline 7
111	.probe.menubar.edit add command \
112	-command {Probe_do_RemoveUncertain} \
113	-label {Remove UNCERTAIN names} \
114	-accelerator {Alt-e u} \
115	-underline 7
116	.probe.menubar.edit add command \
117	-command {Probe_do_Copy} \
118	-accelerator {Alt-e c} \
119	-label {Copy} \
120	-underline 0
121
122
123	# The Export menu
124	menu .probe.menubar.export \
125	-tearoffcommand .PROBE.MENUBAR.EXPORT \
126	-tearoff 0
127	.probe.menubar.export add command \
128	-command {Probe_do_Export2Browser} \
129	-accelerator {Alt-x b} \
130	-label {to Browser} \
131	-underline 3
132	.probe.menubar.export add command \
133	-command {Probe_do_Export2Display} \
134	-accelerator {Alt-x d} \
135	-label {to Display} \
136	-underline 3
137
138
139	# The File menu
140	menu .probe.menubar.file \
141	-tearoffcommand .PROBE.MENUBAR.FILE \
142	-tearoff 0
143	.probe.menubar.file add command \
144	-command {Probe_do_NewBuffer} \
145	-label {New buffer...} \
146	-accelerator {Alt-f n} \
147	-underline 0
148	.probe.menubar.file add command \
149	-command {Probe_do_ReadFile} \
150	-label {Read...} \
151	-accelerator {Alt-f r} \
152	-underline 0
153	.probe.menubar.file add command \
154	-command {Probe_do_WriteBuf} \
155	-label {Save...} \
156	-accelerator {Alt-f s} \
157	-underline 0
158	.probe.menubar.file add command \
159	-command {Probe_do_WriteBufAs} \
160	-label {Save As...} \
161	-accelerator {Alt-f a} \
162	-underline 5
163	.probe.menubar.file add command \
164	-command {Probe_do_Print} \
165	-label {Print...} \
166	-accelerator {Alt-f p} \
167	-underline 0
168	.probe.menubar.file add command \
169	-command {Toggle_Remote ascProbVect} \
170	-accelerator {Alt-f c} \
171	-label {Close window} \
172	-underline 0
173	.probe.menubar.file add command \
174	-command {Script_do_Exit} \
175	-label {Exit ASCEND...} \
176	-accelerator {Alt-f e} \
177	-underline 0
178	.probe.menubar.file add separator
179
180
181	# The Help menu
182	menu .probe.menubar.help \
183	-tearoffcommand .PROBE.MENUBAR.HELP \
184	-tearoff 0
185	.probe.menubar.help add command \
186	-command {Probe_do_Help} \
187	-label {On Probe} \
188	-underline 3
189
190
191	# The View menu
192	menu .probe.menubar.view \
193	-tearoffcommand .PROBE.MENUBAR.VIEW \
194	-tearoff 0
195	.probe.menubar.view add command \
196	-command {Probe_do_Font} \
197	-label {Font ...} \
198	-accelerator {Alt-v f} \
199	-underline 0
200	.probe.menubar.view add checkbutton \
201	-offvalue {0} \
202	-onvalue {1} \
203	-variable {ascProbVect(visibility)} \
204	-accelerator {Alt-v o} \
205	-label {Open automatically} \
206	-underline 0
207	.probe.menubar.view add command \
208	-command {View_Set_Save_Options probe} \
209	-label {Save window appearance} \
210	-accelerator {Alt-v s} \
211	-underline 0
212
213
214	#
215	# Add the menus as cascades of the toplevel's menu;
216	# add the toplevel's menu to the toplevel
217	#
218	.probe.menubar add cascade \
219	-menu .probe.menubar.file \
220	-label {File} \
221	-underline 0
222	.probe.menubar add cascade \
223	-menu .probe.menubar.edit \
224	-label {Edit} \
225	-underline 0
226	.probe.menubar add cascade \
227	-menu .probe.menubar.view \
228	-label {View} \
229	-underline 0
230	.probe.menubar add cascade \
231	-menu .probe.menubar.export \
232	-label {Export} \
233	-underline 1
234	.probe.menubar add cascade \
235	-menu .probe.menubar.help \
236	-label {Help} \
237	-underline 0
238	.probe configure \
239	-menu .probe.menubar
240
241
242	# build frame and entry at bottom of window to hold current buffer name
243	frame .probe.buffer_frm \
244	-borderwidth {2} \
245	-relief {raised}
246
247	entry .probe.buffer_frm.buffer_entry \
248	-relief {raised} \
249	-width {24} \
250	-state {disabled} \
251	-exportselection 0 \
252	-textvariable ascProbVect(filename) \
253	-font $ascProbVect(font)
254
255	pack append .probe.buffer_frm \
256	.probe.buffer_frm.buffer_entry {left frame center expand fillx}
257
258
259	#
260	# Pack the widgets into the probe toplevel
261	#
262	pack append .probe \
263	.probe.main_frm {top frame center expand fill} \
264	.probe.buffer_frm {top frame center fillx}
265
266	EndSrc.probe
267
268	if {"[info procs XFEdit]" != ""} {
269	catch "XFMiscBindWidgetTree .probe"
270	after 2 "catch {XFEditSetShowWindows}"
271	}
272	}
273
274	# proc DestroyWindow.probe {}
275	proc DestroyWindow.probe {} {# xf ignore me 7
276	if {"[info procs XFEdit]" != ""} {
277	if {"[info commands .probe]" != ""} {
278	global xfShowWindow.probe
279	set xfShowWindow.probe 0
280	XFEditSetPath .
281	after 2 "XFSaveAsProc .probe; XFEditSetShowWindows"
282	}
283	} {
284	catch "destroy .probe"
285	update
286	}
287	}
288
289	# proc StartupSrc.probe {args}
290	# probe startup entrance
291	# as much of the C/global dependencies managed here as possible
292	proc StartupSrc.probe {args} {
293
294	global env
295	global ascGlobalVect
296	global ascProbVect
297
298	if {[info procs Probe_bindListbox] != "Probe_bindListbox"} {
299	proc Probe_bindListbox {args} {
300	error "Driver needs to define Probe_bindListbox!"
301	}
302	}
303
304	if {[catch {set ascProbVect(windowname)} ]} {
305	set ascProbVect(minsize) 100x100
306	set ascProbVect(geometry) 200x400+10+10
307	set ascProbVect(iconname) Probe
308	set ascProbVect(initialstate) normal
309	set ascProbVect(font) "courier 12 bold"
310	}
311	if {[catch {set ascGlobalVect(font)} ]} {
312	set ascGlobalVect(font) "courier 10 bold"
313	set ascGlobalVect(labelfont) "courier 12 bold"
314	set ascGlobalVect(tbg) "white"
315	set ascGlobalVect(tfg) "black"
316	set ascGlobalVect(bg) "white"
317	set ascGlobalVect(fg) "black"
318	set ascGlobalVect(afg) "white"
319	set ascGlobalVect(abg) "black"
320	set ascGlobalVect(sfg) "white"
321	set ascGlobalVect(sbg) "black"
322	set ascGlobalVect(visibility) 1
323	set ascGlobalVect(c_loaded) "0"
324	set ascGlobalVect(toolbitmap) \
325	"@$env(ASCENDBITMAPS)/toolAttributes.xbm"
326	}
327	}
328
329	# proc EndSrc.probe {}
330	proc EndSrc.probe {} {
331	# probe startup exit
332	global ascProbVect
333	set ascProbVect(geometry) [sanegeometry $ascProbVect(geometry)]
334	set minw [lindex [split $ascProbVect(minsize) x] 0]
335	set minh [lindex [split $ascProbVect(minsize) x] 1]
336	set gw [lindex [split [lindex [split $ascProbVect(geometry) +] 0] x] 0]
337	set gh [lindex [split [lindex [split $ascProbVect(geometry) +] 0] x] 1]
338	set gp "+[lindex [split [split $ascProbVect(geometry) x] +] 1]+[lindex [split [split $ascProbVect(geometry) x] +] 2]"
339	if {[expr $gw < $minw]} {set gw $minw}
340	if {[expr $gh < $minh]} {set gh $minh}
341	set gwh "${gw}x${gh}"
342	wm positionfrom .probe user
343	wm sizefrom .probe user
344	wm minsize .probe $minw $minh
345	wm geometry .probe [osgpos $gwh$gp]
346	wm iconname .probe $ascProbVect(iconname)
347
348	if {$ascProbVect(initialstate)!="iconic" && \
349	$ascProbVect(initialstate)!="iconified" &&
350	$ascProbVect(initialstate)!="withdrawn"} {
351	wm deiconify .probe
352	}
353	if {"$ascProbVect(initialstate)"=="withdrawn"} {
354	wm withdraw .probe
355	}
356
357	}
358
359
360
361	# proc build_probebox {parentname winnum font}
362	#---------------------------------------------------------------------------
363	# creates a listbox widget with scrollbars in the context
364	# of parentname, if same does not already exist.
365	# the name of the listbox widget is
366	# $parentname.probe_box_$winnum
367	# returns the name $parentname.script_box_$winnum
368	# The widget with this name has a child named listbox1.
369	# scrollbars are done with bg/fg colors
370	# text is done with tbg/tfg, sbg/sfg for plain and selected text,
371	# respectively.
372	# if the widget already exists, recolors it from the given input.
373	#---------------------------------------------------------------------------
374	#
375	proc build_probebox {parentname winnum font} {
376	if { ! [winfo exists $parentname.probe_box_$winnum] } {
377	# It does not exist, build it.
378
379	# build Frame to hold scrollbars and listbox
380	frame $parentname.probe_box_$winnum
381
382	# build Verticle Scrollbar
383	scrollbar $parentname.probe_box_$winnum.scrollbarV \
384	-command "$parentname.probe_box_$winnum.listbox1 yview"
385
386	# build Horizontal Scrollbar
387	scrollbar $parentname.probe_box_$winnum.scrollbarH \
388	-command "$parentname.probe_box_$winnum.listbox1 xview" \
389	-orient {horizontal}
390
391	# build Listbox to hold probe variables
392	listbox $parentname.probe_box_$winnum.listbox1 \
393	-relief {raised} \
394	-xscrollcommand "$parentname.probe_box_$winnum.scrollbarH set" \
395	-yscrollcommand "$parentname.probe_box_$winnum.scrollbarV set" \
396	-width 1 \
397	-height 1 \
398	-font $font \
399	-exportselection 0 \
400	-selectmode extended
401
402	# pack widget $parentname.probe_box_$winnum
403	pack append $parentname.probe_box_$winnum \
404	$parentname.probe_box_$winnum.scrollbarV {right frame center filly} \
405	$parentname.probe_box_$winnum.listbox1 {top frame center expand fill} \
406	$parentname.probe_box_$winnum.scrollbarH {bottom frame center fillx}
407	}
408
409	$parentname.probe_box_$winnum.listbox1 configure \
410	-font $font
411
412	return $parentname.probe_box_$winnum
413	}
414
415
416	# Internal procedures
417
418	# eof
419	#
420