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

Contents of /trunk/tcltk/TK/AscendRC

Parent Directory Parent Directory | Revision Log Revision Log


Revision 604 - (show annotations) (download)
Mon May 15 18:59:21 2006 UTC (17 years, 11 months ago) by ben.allan
File size: 1870 byte(s)
believed to fix issue 67, del/bksp reversal.
The user may now adjust this in their ascendrc file
as needed to make their favorite window manager
behave itself.
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.

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