diff options
Diffstat (limited to 'demos/atomicGroups.tcl')
-rw-r--r-- | demos/atomicGroups.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/atomicGroups.tcl b/demos/atomicGroups.tcl index a42593c..2bf782b 100644 --- a/demos/atomicGroups.tcl +++ b/demos/atomicGroups.tcl @@ -12,12 +12,12 @@ namespace eval atomicGroups { wm title $w "Zinc Atomicity Demonstration" wm iconname $w "Atomic" - variable defaultfont [font create -family Helvetica -size 10 -weight bold] + variable defaultfont [font create -family Helvetica -size 14 -weight normal] grid [button $w.dismiss -text Dismiss -command "destroy $w"] -row 6 -column 0 -pady 10 grid [button $w.code -text "See Code" -command "showCode $w"] -row 6 -column 1 -pady 10 - grid [zinc $w.zinc -width 500 -height 350 -font 10x20 -borderwidth 0] \ + grid [zinc $w.zinc -width 500 -height 350 -font $defaultfont -borderwidth 0] \ -row 0 -column 0 -columnspan 2 -sticky news grid columnconfigure $w 0 -weight 1 grid columnconfigure $w 1 -weight 1 |