ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2025-01-11 21:50:34 +05:00
Code Issues Packages Projects Releases Wiki Activity

Removed some more tix

Browse Source
This commit is contained in:
Gerhard Kitzler 2016-11-10 02:43:43 +01:00
parent b93c31f3cf
commit daddcf9c89
1 changed files with 36 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
ng/menustat.tcl
View File

@ -854,20 +854,31 @@ ttk::button .bubar.center -text "Center" \
-command { Ng_Center; redraw } -command { Ng_Center; redraw }
# tk_optionMenu .bubar.modesel drawmode "rotate" "move " "zoom " # tk_optionMenu .bubar.modesel drawmode "rotate" "move " "zoom "
tixOptionMenu .bubar.modesel \ # tixOptionMenu .bubar.modesel \
-options { # -options {
label.width 0 # label.width 0
label.anchor e # label.anchor e
menubutton.width 6 # menubutton.width 6
} \ # } \
-variable drawmode # -variable drawmode
.bubar.modesel add command rotate -label Rotate # .bubar.modesel add command rotate -label Rotate
.bubar.modesel add command move -label Move # .bubar.modesel add command move -label Move
.bubar.modesel add command zoom -label Zoom # .bubar.modesel add command zoom -label Zoom
ttk::menubutton .bubar.modesel -menu .bubar.modesel.menu -text "" -width 6
menu .bubar.modesel.menu -tearoff 0
.bubar.modesel.menu add command -label "Rotate" -command "set drawmode \"rotate\" ;.bubar.modesel configure -text \"Rotate\""
.bubar.modesel.menu add command -label "Move" -command "set drawmode \"move\" ;.bubar.modesel configure -text \"Move\""
.bubar.modesel.menu add command -label "Zoom" -command "set drawmode \"zoom\" ;.bubar.modesel configure -text \"Zoom\""
.bubar.modesel.menu invoke "Rotate"
set viewvals { geometry specpoints mesh solution} set viewvals { geometry specpoints mesh solution}
if { $userlevel == 3} { if { $userlevel == 3} {
set viewvals { geometry mesh specpoints surfmeshing modelview solution} set viewvals { geometry mesh specpoints surfmeshing modelview solution}
@ -881,19 +892,20 @@ set viewvallabs(surfmeshing) "Mesh Gen"
set viewvallabs(modelview) "Modeller" set viewvallabs(modelview) "Modeller"
set viewvallabs(solution) "Solution" set viewvallabs(solution) "Solution"
tixOptionMenu .bubar.selview \ # tixOptionMenu .bubar.selview \
-options { # -options {
label.width 0 # label.width 0
label.anchor e # label.anchor e
menubutton.width 10 # menubutton.width 10
} \ # } \
foreach viewv $viewvals { # foreach viewv $viewvals {
.bubar.selview add command $viewv -label $viewvallabs($viewv) # .bubar.selview add command $viewv -label $viewvallabs($viewv)
} # }
# .bubar.selview config -variable selectvisual
# .bubar.selview config -command { Ng_SetVisParameters; redraw }
.bubar.selview config -variable selectvisual
.bubar.selview config -command { Ng_SetVisParameters; redraw }
# pack .bubar.modesel -side right # pack .bubar.modesel -side right
@ -962,7 +974,8 @@ pack .statbar.selslabel .statbar.selsval -side left -ipady 3p
tixMeter .statbar.per -value 0 -text 0% tixMeter .statbar.per -value 0 -text 0%
.statbar.per configure -fillcolor blue #ttk::progressbar .statbar.per -value 0
#.statbar.per configure -fillcolor blue
pack .statbar.per -side right pack .statbar.per -side right
pack .statbar.task -side right -ipady 4 pack .statbar.task -side right -ipady 4
@ -1017,7 +1030,7 @@ proc timer2 { } {
# set mem_moveable [Ng_MemInfo moveable] # set mem_moveable [Ng_MemInfo moveable]
.statbar.per config -value [expr $status_percent/100] -text [format %2.1f [expr 0.1*int(10*$status_percent)]]% .statbar.per configure -value [expr $status_percent/100] -text [format %2.1f [expr 0.1*int(10*$status_percent)]]%
if { $multithread_running } { if { $multithread_running } {