|
1 " |
|
2 COPYRIGHT (c) 2006 by eXept Software AG |
|
3 All Rights Reserved |
|
4 |
|
5 This software is furnished under a license and may be used |
|
6 only in accordance with the terms of that license and with the |
|
7 inclusion of the above copyright notice. This software may not |
|
8 be provided or otherwise made available to, or used by, any |
|
9 other person. No title to or ownership of the software is |
|
10 hereby transferred. |
|
11 " |
|
12 "{ Package: 'stx:libtool' }" |
|
13 |
|
14 InputFieldSpec subclass:#EditFieldWithCompletionSpec |
|
15 instanceVariableNames:'showOptions' |
|
16 classVariableNames:'' |
|
17 poolDictionaries:'' |
|
18 category:'Interface-Support-UI-Specs' |
|
19 ! |
|
20 |
|
21 !EditFieldWithCompletionSpec class methodsFor:'documentation'! |
|
22 |
|
23 copyright |
|
24 " |
|
25 COPYRIGHT (c) 2006 by eXept Software AG |
|
26 All Rights Reserved |
|
27 |
|
28 This software is furnished under a license and may be used |
|
29 only in accordance with the terms of that license and with the |
|
30 inclusion of the above copyright notice. This software may not |
|
31 be provided or otherwise made available to, or used by, any |
|
32 other person. No title to or ownership of the software is |
|
33 hereby transferred. |
|
34 " |
|
35 ! ! |
|
36 |
|
37 !EditFieldWithCompletionSpec methodsFor:'accessing'! |
|
38 |
|
39 showOptions |
|
40 ^ showOptions |
|
41 ! |
|
42 |
|
43 showOptions:something |
|
44 showOptions := something. |
|
45 ! ! |
|
46 |
|
47 !EditFieldWithCompletionSpec methodsFor:'building'! |
|
48 |
|
49 setAttributesIn:aView with:aBuilder |
|
50 |
|
51 super setAttributesIn:aView with:aBuilder. |
|
52 aView showOptions: showOptions ? true |
|
53 |
|
54 "Created: / 09-08-2009 / 09:11:08 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
55 ! ! |
|
56 |
|
57 !EditFieldWithCompletionSpec methodsFor:'parsing a view'! |
|
58 |
|
59 fromView:aView callBack:aBlock |
|
60 |
|
61 showOptions := aView showOptions. |
|
62 |
|
63 super fromView:aView callBack:aBlock |
|
64 |
|
65 "Created: / 09-08-2009 / 09:10:17 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
66 ! ! |
|
67 |
|
68 !EditFieldWithCompletionSpec class methodsFor:'documentation'! |
|
69 |
|
70 version_CVS |
|
71 ^ '$Header: /cvs/stx/stx/libtool/EditFieldWithCompletionSpec.st,v 1.1 2011-07-01 13:30:32 cg Exp $' |
|
72 ! |
|
73 |
|
74 version_SVN |
|
75 ^ '§Id: EditFieldWithCompletionSpec.st 7567 2010-04-17 10:59:53Z vranyj1 §' |
|
76 ! ! |