Overview
Comment:Tidied title
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: d41a7c17c523b01aa45c7810eb2d03e56cbd4422c7c24eb5aab57147c157eeb6
User & Date: gawthrop@users.sourceforge.net on 1999-08-19 21:26:55
Other Links: branch diff | manifest | tags
Context
1999-08-25
21:20:07
Don't list components starting with 0 ot 1 check-in: a0cacb95f9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1999-08-19
21:26:55
Tidied title check-in: d41a7c17c5 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
21:12:33
Tidied and started implementaation of vector junctions check-in: 292f5ba3c8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/mtt_make_menu from [8d1d5f9f81] to [2cd9ad3c99].

︙︙
25
26
27
28
29
30
31



32
33

34
35
36
37
38
39
40
41
42

43
44
45
46
47
48
49

cat<<EOF
# Default system
set system "$system"

# Arguments to mtt
set args "-q"




# The top level menu
button .mtt -text "$title ($dirname)" -command "exec mtt warranty &"

menubutton .man -text "Manual" -menu .man.man
menubutton .util  -text "Utilities" -menu .util.util
menubutton .opt  -text "Options" -menu .opt.opt
menubutton .sys -text "Systems" -menu .sys.sys
menubutton .rep -text "Representations (major)" -menu .rep.rep
menubutton .repall -text "Representations (all)" -menu .repall.repall
menubutton .exam -text "Examples" -menu .exam.exam
button .mtt_quit -text "Quit" -command exit
pack .mtt .exam .rep  .repall .sys  .util .opt  .man .mtt_quit

 
menu .man.man
.man.man add command -label "Browser (html)" -command "exec mtt -q hinfo &"
.man.man add command -label "Info" -command "exec xterm -e mtt -q info &"
.man.man add command -label "Text (pdf)" -command "exec mtt -q manual &"

menu .util.util








>
>
>

|
>








|
>








25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

cat<<EOF
# Default system
set system "$system"

# Arguments to mtt
set args "-q"

# Default the again command
set mtt "mtt warranty"

# The top level menu
button .mtt -text "$title \n Directory: $dirname \n NO WARRANTY (press for details)" -command "exec mtt warranty &"
#button .again -text "Again" -command "exec $mtt &"
menubutton .man -text "Manual" -menu .man.man
menubutton .util  -text "Utilities" -menu .util.util
menubutton .opt  -text "Options" -menu .opt.opt
menubutton .sys -text "Systems" -menu .sys.sys
menubutton .rep -text "Representations (major)" -menu .rep.rep
menubutton .repall -text "Representations (all)" -menu .repall.repall
menubutton .exam -text "Examples" -menu .exam.exam
button .mtt_quit -text "Quit" -command exit
pack .mtt  .exam .rep  .repall .sys  .util .opt  .man .mtt_quit

 
menu .man.man
.man.man add command -label "Browser (html)" -command "exec mtt -q hinfo &"
.man.man add command -label "Info" -command "exec xterm -e mtt -q info &"
.man.man add command -label "Text (pdf)" -command "exec mtt -q manual &"

menu .util.util
︙︙
84
85
86
87
88
89
90




91
92
93
94
95
96
97
98
99


cat<<EOF
menu .rep.rep
menu .repall.repall
EOF

reps_txt2tk <$MTTPATH/REPS 





















>
>
>
>










89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108


cat<<EOF
menu .rep.rep
menu .repall.repall
EOF

reps_txt2tk <$MTTPATH/REPS

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]