--- a/EditFieldWithCompletion.st Tue Jan 03 14:50:11 2017 +0100
+++ b/EditFieldWithCompletion.st Tue Jan 03 14:51:45 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
@@ -56,7 +54,6 @@
!
example_1
-
|top field label value|
top := StandardSystemView new.
@@ -64,17 +61,17 @@
extent:300 @ 300;
label:'Live class completion field'.
value := '' asValue.
- field := (EditFieldWithCompletion new)
+ field := self new
origin:10 @ 135 corner:280 @ 165;
entryCompletionBlock:[:content | Smalltalk classnameCompletion:content ];
model:value.
- label := (Label new)
+ label := Label new
origin:10 @ 95 corner:280 @ 115;
labelChannel:value.
top
add:field;
- add:label.
- top open
+ add:label;
+ open
!
examples