equal
deleted
inserted
replaced
61 appendAction := aBlock |
61 appendAction := aBlock |
62 ! ! |
62 ! ! |
63 |
63 |
64 !FileSaveBox methodsFor:'initialization'! |
64 !FileSaveBox methodsFor:'initialization'! |
65 |
65 |
66 focusSequence |
|
67 "return the sequence for tabbing through my components" |
|
68 |
|
69 |a| |
|
70 |
|
71 patternField shown ifTrue:[ |
|
72 a := Array new:6. |
|
73 a at:1 put:enterField. |
|
74 a at:2 put:patternField. |
|
75 a at:3 put:selectionList. |
|
76 a at:4 put:abortButton. |
|
77 a at:5 put:appendButton. |
|
78 a at:6 put:okButton. |
|
79 ^ a |
|
80 ]. |
|
81 ^ Array with:enterField |
|
82 with:selectionList |
|
83 with:abortButton |
|
84 with:appendButton |
|
85 with:okButton |
|
86 |
|
87 "Modified: 12.5.1996 / 21:46:17 / cg" |
|
88 ! |
|
89 |
|
90 initialize |
66 initialize |
91 super initialize. |
67 super initialize. |
92 |
68 |
93 label := resources string:'Save file dialog'. |
69 label := resources string:'Save file dialog'. |
94 |
70 |
119 ! ! |
95 ! ! |
120 |
96 |
121 !FileSaveBox class methodsFor:'documentation'! |
97 !FileSaveBox class methodsFor:'documentation'! |
122 |
98 |
123 version |
99 version |
124 ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.11 1996-05-16 10:24:32 cg Exp $' |
100 ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.12 1996-05-31 20:20:42 cg Exp $' |
125 ! ! |
101 ! ! |