Change 17853 by pudge@pudge-mobile on 2002/09/08 04:33:43
TextEdit example show text extraction
Affected files ...
.... //depot/maint-5.6/macperl/macos/ext/Mac/TextEdit/t/SimpleText.t#2 edit
Differences ...
==== //depot/maint-5.6/macperl/macos/ext/Mac/TextEdit/t/SimpleText.t#2 (text) ====
Index: macperl/macos/ext/Mac/TextEdit/t/SimpleText.t
--- macperl/macos/ext/Mac/TextEdit/t/SimpleText.t#1~11243~ Mon Jul 9 15:16:12
2001
+++ macperl/macos/ext/Mac/TextEdit/t/SimpleText.t Sat Sep 7 21:33:43 2002
@@ -18,13 +18,17 @@
use Mac::TextEdit;
$bounds = new Rect 50, 50, 550, 290;
-$win = new MacWindow $bounds, "Edit", 1, documentProc, 1;
-$list= $win->new_textedit(
- new Rect(15, 15, 485, 195),
- new Rect(10, 10, 490, 200));
+$win = new MacWindow $bounds, "Edit", 1, documentProc, 1;
+$list = $win->new_textedit(
+ new Rect(15, 15, 485, 195),
+ new Rect(10, 10, 490, 200));
while ($win->window) {
WaitNextEvent;
+ $handle = $list->edit;
+ $text = TEGetText($handle)->get if ref $handle;
}
+
+print $text;
dispose $win;
End of Patch.
