ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-11-11 16:49:16 +05:00
Code Issues Packages Projects Releases Wiki Activity

* Improved dialog layout for the colour based mesh visibility feature

Browse Source
This commit is contained in:
Philippose Rajan 2010-08-09 18:10:48 +00:00
parent e356a50199
commit 77b01ed95e
1 changed files with 18 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
ng/dialog.tcl
View File

@ -1549,12 +1549,11 @@ proc currmeshcoloursdialog { } {
global facecolslist global facecolslist
frame $w.facecols -borderwidth 3 frame $w.facecols -borderwidth 3
pack $w.facecols -side top -expand yes -fill x -fill y
listbox $w.facecols.list -yscroll "$w.facecols.scroll set" -selectmode single -setgrid 1 -width 32 -height 12 listbox $w.facecols.list -yscroll "$w.facecols.scroll set" -selectmode single -setgrid 1 -width 32 -height 12
scrollbar $w.facecols.scroll -command "$w.facecols.list yview" scrollbar $w.facecols.scroll -command "$w.facecols.list yview"
pack $w.facecols.scroll -side right -fill y pack $w.facecols.scroll -side right -fill y
pack $w.facecols.list -side left -expand 1 -fill both pack $w.facecols.list -side left -expand yes -fill both
Ng_CurrentFaceColours getcolours facecolslist Ng_CurrentFaceColours getcolours facecolslist
set i 1 set i 1
@ -1563,9 +1562,7 @@ proc currmeshcoloursdialog { } {
incr i incr i
$w.facecols.list insert end $hel } $w.facecols.list insert end $hel }
frame $w.bu1 frame $w.bu1 -borderwidth 3
pack $w.bu1
button $w.bu1.showonly -text "show only" -command { button $w.bu1.showonly -text "show only" -command {
Ng_CurrentFaceColours showonly [.currmeshcolours_dlg.facecols.list curselection] Ng_CurrentFaceColours showonly [.currmeshcolours_dlg.facecols.list curselection]
redraw redraw
@ -1574,43 +1571,38 @@ proc currmeshcoloursdialog { } {
Ng_CurrentFaceColours hideonly [.currmeshcolours_dlg.facecols.list curselection] Ng_CurrentFaceColours hideonly [.currmeshcolours_dlg.facecols.list curselection]
redraw redraw
} }
pack $w.bu1.showonly $w.bu1.hideonly -fill x -padx 3 -pady 3 -side left button $w.bu1.showalso -text "show" -command {
frame $w.bu2
pack $w.bu2
button $w.bu2.showalso -text "show" -command {
Ng_CurrentFaceColours showalso [.currmeshcolours_dlg.facecols.list curselection] Ng_CurrentFaceColours showalso [.currmeshcolours_dlg.facecols.list curselection]
redraw redraw
} }
button $w.bu2.hidealso -text "hide" -command { button $w.bu1.hidealso -text "hide" -command {
Ng_CurrentFaceColours hidealso [.currmeshcolours_dlg.facecols.list curselection] Ng_CurrentFaceColours hidealso [.currmeshcolours_dlg.facecols.list curselection]
redraw redraw
} }
pack $w.bu2.showalso $w.bu2.hidealso -fill x -padx 3 -pady 3 -side left pack $w.bu1.showonly $w.bu1.hideonly $w.bu1.showalso $w.bu1.hidealso -expand yes -fill x -padx 2 -pady 2 -side left
frame $w.bu3 frame $w.bu2
pack $w.bu3 button $w.bu2.showall -text "show all" -command {
button $w.bu3.showall -text "show all" -command {
Ng_CurrentFaceColours showall Ng_CurrentFaceColours showall
redraw redraw
} }
button $w.bu3.hideall -text "hide all" -command { button $w.bu2.hideall -text "hide all" -command {
Ng_CurrentFaceColours hideall Ng_CurrentFaceColours hideall
redraw redraw
} }
pack $w.bu3.showall $w.bu3.hideall -fill x -padx 3 -pady 3 -side left pack $w.bu2.showall $w.bu2.hideall -expand yes -fill x -padx 2 -pady 2 -side left
frame $w.bu4 frame $w.bu3
pack $w.bu4 button $w.bu3.close -text "close" -command {
button $w.bu4.close -text "close" -command {
destroy .currmeshcolours_dlg destroy .currmeshcolours_dlg
} }
pack $w.bu4.close -pady 3 -side right pack $w.bu3.close -expand yes -fill x -pady 3 -side right
pack $w.bu4 -side bottom
pack $w.facecols -side top -expand yes -fill x -fill y
pack $w.bu3 -side bottom
pack $w.bu2 -side bottom
pack $w.bu1 -expand yes -fill x -side left
wm withdraw $w wm withdraw $w
wm geom $w +100+100 wm geom $w +100+100