mirror of
https://github.com/NGSolve/netgen.git
synced 2025-01-26 04:40:34 +05:00
minor gui-fixes
This commit is contained in:
parent
2beed0a4e9
commit
ce561d56af
@ -1602,7 +1602,7 @@ proc clippingdialog { } {
|
|||||||
-validatecommand "my_validatespinbox %W %P 0" \
|
-validatecommand "my_validatespinbox %W %P 0" \
|
||||||
-invalidcommand "my_invalidspinbox %W"
|
-invalidcommand "my_invalidspinbox %W"
|
||||||
|
|
||||||
ttk::label $w.donotclipdomainlabel -text "Clip only domain"
|
ttk::label $w.donotclipdomainlabel -text "Do not clip domain"
|
||||||
ttk::spinbox $w.donotclipdomainspinb -from 0 -to 500 -increment 1 -width 3 \
|
ttk::spinbox $w.donotclipdomainspinb -from 0 -to 500 -increment 1 -width 3 \
|
||||||
-textvariable viewoptions.clipping.notdomain -validate focus \
|
-textvariable viewoptions.clipping.notdomain -validate focus \
|
||||||
-command "clipplanecommand" \
|
-command "clipplanecommand" \
|
||||||
|
@ -942,7 +942,7 @@ ttk::frame .statbar -relief flat
|
|||||||
# -bd 2
|
# -bd 2
|
||||||
pack .statbar -side bottom -fill x
|
pack .statbar -side bottom -fill x
|
||||||
|
|
||||||
ttk::label .statbar.ptslabel -text "Points: "
|
ttk::label .statbar.ptslabel -text " Points: "
|
||||||
ttk::label .statbar.ptsval -textvariable status_np
|
ttk::label .statbar.ptsval -textvariable status_np
|
||||||
ttk::label .statbar.elslabel -text " Elements: "
|
ttk::label .statbar.elslabel -text " Elements: "
|
||||||
ttk::label .statbar.elsval -textvariable status_ne
|
ttk::label .statbar.elsval -textvariable status_ne
|
||||||
|
Loading…
Reference in New Issue
Block a user