Contents of /trunk/ascend4/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
source "$env(ASCENDTK)/ascend.tcl"
# ----------- do not change anything above this line --------------
# unless of course you know what you are doing in TCL/Tk

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