Contents of /trunk/tcltk/TK/AscendRC

# This is the .ascendrc file for running Ascend4
# a copy of it should be put in each user's startup directory.
# This file is called by the ascend binary.
#
# $Date: 1998/06/01 12:42:45 $
# $Revision: 1.9 $
#
global env tcl_platform
set asc_swap_del_backspace 0
global asc_swap_del_backspace
source "$env(ASCENDTK)/ascend.tcl"
# ----------- do not change anything above this line --------------
# unless of course you know what you are doing in TCL/Tk
# or want to reverse the delete/backspace behavior on
# text widgets/entry widgets.

#  Add a CLEAR ALL to the console's EDIT menu if the console
#  exists; CLEAR ALL removes all text from the console window.
if {[info command console] == "console"} {
  console eval {
    .menubar.edit add command \
      -label {Clear All} \
      -command {.console delete 1.0 end}
  }
}

# comment out the following to skip automatically loading the relation and
# solver_var definitions
READ system.a4l
 
# The following procedure is called during the normal exit of ascend,
# but not when exiting by ^C, ^D, or seg. fault (heaven forbid)
# You may put anything you want in it, but note that it is not called
# until AFTER the ascend windows have been destroyed.
proc user_shutdown {} {
  global ascUtilVect
  # delete scratch plot files on exit
  set username [ascwhoami]
  set fprefix $ascUtilVect(asctmp)/asc$username*
  if {![catch {set flist "[glob $fprefix]"} ]} {
    puts "Deleting scratch files $fprefix:"
    foreach i $flist {
      puts $i
      catch { file delete $i }
    }
  }
  # other stuff you like below here
}

# You can add other TCL commands, including those for setting solver
# parameter defaults, sourcing your own TCL/Tk definitions, etc
# here. See the online solver parameters page help for more details
# on how to set solver defaults.
# Parameters defined here override ascend.ad and *.a4o files.
1	# This is the .ascendrc file for running Ascend4
2	# a copy of it should be put in each user's startup directory.
3	# This file is called by the ascend binary.
4	#
5	# $Date: 1998/06/01 12:42:45 $
6	# $Revision: 1.9 $
7	#
8	global env tcl_platform
9	set asc_swap_del_backspace 0
10	global asc_swap_del_backspace
11	source "$env(ASCENDTK)/ascend.tcl"
12	# ----------- do not change anything above this line --------------
13	# unless of course you know what you are doing in TCL/Tk
14	# or want to reverse the delete/backspace behavior on
15	# text widgets/entry widgets.
16
17	# Add a CLEAR ALL to the console's EDIT menu if the console
18	# exists; CLEAR ALL removes all text from the console window.
19	if {[info command console] == "console"} {
20	console eval {
21	.menubar.edit add command \
22	-label {Clear All} \
23	-command {.console delete 1.0 end}
24	}
25	}
26
27	# comment out the following to skip automatically loading the relation and
28	# solver_var definitions
29	READ system.a4l
30
31	# The following procedure is called during the normal exit of ascend,
32	# but not when exiting by ^C, ^D, or seg. fault (heaven forbid)
33	# You may put anything you want in it, but note that it is not called
34	# until AFTER the ascend windows have been destroyed.
35	proc user_shutdown {} {
36	global ascUtilVect
37	# delete scratch plot files on exit
38	set username [ascwhoami]
39	set fprefix $ascUtilVect(asctmp)/asc$username*
40	if {![catch {set flist "[glob $fprefix]"} ]} {
41	puts "Deleting scratch files $fprefix:"
42	foreach i $flist {
43	puts $i
44	catch { file delete $i }
45	}
46	}
47	# other stuff you like below here
48	}
49
50	# You can add other TCL commands, including those for setting solver
51	# parameter defaults, sourcing your own TCL/Tk definitions, etc
52	# here. See the online solver parameters page help for more details
53	# on how to set solver defaults.
54	# Parameters defined here override ascend.ad and *.a4o files.