/[ascend]/trunk/ascend4/TK/AscendRC
ViewVC logotype

Contents of /trunk/ascend4/TK/AscendRC

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations) (download)
Fri Oct 29 20:54:12 2004 UTC (15 years, 2 months ago) by aw0a
File size: 1727 byte(s)
Setting up web subdirectory in repository
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.

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22