equal
deleted
inserted
replaced
26 |
26 |
27 EditTextView comment:' |
27 EditTextView comment:' |
28 COPYRIGHT (c) 1989 by Claus Gittinger |
28 COPYRIGHT (c) 1989 by Claus Gittinger |
29 All Rights Reserved |
29 All Rights Reserved |
30 |
30 |
31 $Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.25 1995-05-06 14:16:48 claus Exp $ |
31 $Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.26 1995-05-07 01:58:10 claus Exp $ |
32 '! |
32 '! |
33 |
33 |
34 !EditTextView class methodsFor:'documentation'! |
34 !EditTextView class methodsFor:'documentation'! |
35 |
35 |
36 copyright |
36 copyright |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 version |
50 version |
51 " |
51 " |
52 $Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.25 1995-05-06 14:16:48 claus Exp $ |
52 $Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.26 1995-05-07 01:58:10 claus Exp $ |
53 " |
53 " |
54 ! |
54 ! |
55 |
55 |
56 documentation |
56 documentation |
57 " |
57 " |
2277 ^ m. |
2277 ^ m. |
2278 ! ! |
2278 ! ! |
2279 |
2279 |
2280 !EditTextView methodsFor:'menu actions'! |
2280 !EditTextView methodsFor:'menu actions'! |
2281 |
2281 |
|
2282 accept |
|
2283 "accept the contents" |
|
2284 |
|
2285 |value| |
|
2286 |
|
2287 value := self contents. |
|
2288 |
|
2289 "model-view behavior" |
|
2290 self sendChangeMessageWith:value. |
|
2291 ! |
|
2292 |
2282 paste:someText |
2293 paste:someText |
2283 "paste someText at cursor" |
2294 "paste someText at cursor" |
2284 |
2295 |
2285 |s startLine startCol| |
2296 |s startLine startCol| |
2286 |
2297 |