diff options
| author | Charles Forsyth <charles.forsyth@gmail.com> | 2013-06-05 11:28:12 +0000 |
|---|---|---|
| committer | Charles Forsyth <charles.forsyth@gmail.com> | 2013-06-05 11:28:12 +0000 |
| commit | 26b470d63604a41f4bf17eeaa2c3f62d8db34702 (patch) | |
| tree | c18255373e09ba14949ab2071be5e434a89912c5 | |
| parent | fc9a419b1951fa928abbeda5a2c1f64593f7fd22 (diff) | |
tone it down
| -rw-r--r-- | appl/lib/tabs.b | 16 | ||||
| -rw-r--r-- | appl/wm/edit.b | 2 |
2 files changed, 9 insertions, 9 deletions
diff --git a/appl/lib/tabs.b b/appl/lib/tabs.b index 1453984e..f5c90cbe 100644 --- a/appl/lib/tabs.b +++ b/appl/lib/tabs.b @@ -25,7 +25,7 @@ TABSXslant : con 5; TABSXoff : con 5; TABSYheight : con 35; TABSYtop : con 10; -TABSBord : con 3; +TABSBord : con 1; init() { @@ -70,15 +70,15 @@ mktabs(t: ref Tk->Toplevel, dot: string, tabs: array of (string, string), dflt: cmd(t, dot+" create polygon " + x1+y1 + x2+y2 + x3+y2 + x4+y1 + " -fill "+back+" -tags "+tag); cmd(t, dot+" create line " + x3+y2 + x4+y1 + - " -fill "+dark+" -width 3 -tags "+tag); + " -fill "+dark+" -width 1 -tags "+tag); cmd(t, dot+" create line " + x1+y1 + x2+y2 + x3+y2 + - " -fill "+light+" -width 3 -tags "+tag); + " -fill "+light+" -width 1 -tags "+tag); x1 = " "+string(xs+2); x4 = " "+string(r.max.x + TABSXslant - 2); y1 = " "+string(TABSYheight); cmd(t, dot+" create line " + x1+y1 + x4+y1 + - " -fill "+back+" -width 5 -tags "+sel); + " -fill "+back+" -width 2 -tags "+sel); cmd(t, dot+" raise "+v); cmd(t, dot+" bind "+tag+" <ButtonRelease-1> 'send "+ @@ -109,13 +109,13 @@ mktabs(t: ref Tk->Toplevel, dot: string, tabs: array of (string, string), dflt: h += 2*TABSBord + TABSYheight; cmd(t, dot+" create line 0 "+string TABSYheight+ - " "+string w+" "+string TABSYheight+" -width 3 -fill "+light); + " "+string w+" "+string TABSYheight+" -width 2 -fill "+light); cmd(t, dot+" create line 1 "+string TABSYheight+ - " 1 "+string(h-1)+" -width 3 -fill "+light); + " 1 "+string(h-1)+" -width 2 -fill "+light); cmd(t, dot+" create line 0 "+string(h-1)+ - " "+string w+" "+string(h-1)+" -width 3 -fill "+dark); + " "+string w+" "+string(h-1)+" -width 2 -fill "+dark); cmd(t, dot+" create line "+string(w-1)+" "+string TABSYheight+ - " "+string(w-1)+" "+string(h-1)+" -width 3 -fill "+dark); + " "+string(w-1)+" "+string(h-1)+" -width 2 -fill "+dark); cmd(t, dot+" configure -width "+string w+" -height "+string h); cmd(t, dot+" configure -scrollregion {0 0 "+string w+" "+string h+"}"); diff --git a/appl/wm/edit.b b/appl/wm/edit.b index dd6e8229..02ca5a49 100644 --- a/appl/wm/edit.b +++ b/appl/wm/edit.b @@ -46,7 +46,7 @@ REPLACEALL, NOSEE : con iota; ed_config := array[] of { - "frame .m -relief raised -bd 2", + "frame .m -relief raised", "frame .b", "menubutton .m.file -text File -menu .m.file.menu", "menubutton .m.edit -text Edit -menu .m.edit.menu", |