Line 0
Link Here
|
|
|
1 |
--- lib/tktext.rb.orig Tue Aug 19 16:23:57 1997 |
2 |
+++ lib/tktext.rb Sat Feb 7 13:01:50 1998 |
3 |
@@ -131,7 +131,7 @@ |
4 |
@t = parent |
5 |
@path = @id = $tk_text_mark |
6 |
$tk_text_mark = $tk_text_mark.succ |
7 |
- tk_call @t.path, 'set', @id, index |
8 |
+ tk_call @t.path, 'mark', 'set', @id, index |
9 |
@t._addtag id, self |
10 |
end |
11 |
def id |
12 |
@@ -139,7 +139,7 @@ |
13 |
end |
14 |
|
15 |
def set(where) |
16 |
- tk_call @t.path, 'mark', 'unset', @id, where |
17 |
+ tk_call @t.path, 'mark', 'set', @id, where |
18 |
end |
19 |
|
20 |
def unset |