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

Annotation of /trunk/ascend4/TK/AscendRC

Parent Directory Parent Directory | Revision Log Revision Log


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