diff options
| author | forsyth <forsyth@vitanuova.com> | 2010-03-10 16:12:19 +0000 |
|---|---|---|
| committer | forsyth <forsyth@vitanuova.com> | 2010-03-10 16:12:19 +0000 |
| commit | 5d1ea71a9f825862284589cbb5ef5d6e6a9bd48e (patch) | |
| tree | 94a31e2d33bcb4a0bc7acb6a950163d015e8baa9 /appl/lib | |
| parent | 20c03f7a316f2de9f09321b46f24088b23ccb055 (diff) | |
20100310-1612
Diffstat (limited to 'appl/lib')
| -rw-r--r-- | appl/lib/tabs.b | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/appl/lib/tabs.b b/appl/lib/tabs.b index d2754320..1453984e 100644 --- a/appl/lib/tabs.b +++ b/appl/lib/tabs.b @@ -138,23 +138,23 @@ tabsctl(t: ref Tk->Toplevel, (lab, widg) = tabs[id]; tag := "tag" + string id; cmd(t, dot+" lower sel" + string id); - pos := cmd(t, dot+" coords " + tag); - if(len pos >= 1 && pos[0] != '!'){ - (p, nil) := parsept(pos); - cmd(t, dot+" coords "+tag+" "+string(p.x+1)+ - " "+string(p.y+1)); - } +# pos := cmd(t, dot+" coords " + tag); +# if(len pos >= 1 && pos[0] != '!'){ +# (p, nil) := parsept(pos); +# cmd(t, dot+" coords "+tag+" "+string(p.x+1)+ +# " "+string(p.y+1)); +# } if(id > 0) cmd(t, dot+" lower "+ tag + " tag"+string (id - 1)); cmd(t, dot+" delete win" + string id); } id = nid; (lab, widg) = tabs[id]; - pos := tk->cmd(t, dot+" coords tag" + string id); - if(len pos >= 1 && pos[0] != '!'){ - (p, nil) := parsept(pos); - cmd(t, dot+" coords tag"+string id+" "+string(p.x-1)+" "+string(p.y-1)); - } +# pos := tk->cmd(t, dot+" coords tag" + string id); +# if(len pos >= 1 && pos[0] != '!'){ +# (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); cmd(t, dot+" raise sel"+string id); cmd(t, dot+" create window "+string TABSBord+" "+ |