diff options
| author | Charles.Forsyth <devnull@localhost> | 2008-01-22 21:54:45 +0000 |
|---|---|---|
| committer | Charles.Forsyth <devnull@localhost> | 2008-01-22 21:54:45 +0000 |
| commit | 9b29ac7ea714507a9c0690620c02c8ca5ab25f90 (patch) | |
| tree | 1eeb3e33858dfc27844b520036f2119869f9088b /appl/lib/tabs.b | |
| parent | 60951762adc08955ddba7ff59f6043e7a542a0f2 (diff) | |
20080122-2200
Diffstat (limited to 'appl/lib/tabs.b')
| -rw-r--r-- | appl/lib/tabs.b | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/appl/lib/tabs.b b/appl/lib/tabs.b index d4314272..d2754320 100644 --- a/appl/lib/tabs.b +++ b/appl/lib/tabs.b @@ -42,7 +42,6 @@ mktabs(t: ref Tk->Toplevel, dot: string, tabs: array of (string, string), dflt: c := chan of string; tk->namechan(t, c, dot[1:]); xpos := 2*TABSXdelta; - top := 10; ypos := TABSYheight - 3; back := cmd(t, dot+" cget -background"); dark := "#999999"; @@ -153,7 +152,7 @@ tabsctl(t: ref Tk->Toplevel, (lab, widg) = tabs[id]; pos := tk->cmd(t, dot+" coords tag" + string id); if(len pos >= 1 && pos[0] != '!'){ - (p, nli) := parsept(pos); + (p, nil) := parsept(pos); cmd(t, dot+" coords tag"+string id+" "+string(p.x-1)+" "+string(p.y-1)); } cmd(t, dot+" raise tag"+string id); |