Change 17853: TextEdit example show text extraction

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.