equal
deleted
inserted
replaced
66 " |
66 " |
67 ! ! |
67 ! ! |
68 |
68 |
69 !FilenameWidgetWithHistory methodsFor:'accessing'! |
69 !FilenameWidgetWithHistory methodsFor:'accessing'! |
70 |
70 |
|
71 acceptOnExpand:aBoolean |
|
72 fileNameEntryField acceptOnExpand:aBoolean |
|
73 |
|
74 "Created: / 20-10-2010 / 17:49:54 / cg" |
|
75 ! |
|
76 |
|
77 contents |
|
78 ^ fileNameEntryField contents |
|
79 |
|
80 "Created: / 20-10-2010 / 17:51:07 / cg" |
|
81 ! |
|
82 |
71 dialogTitle:something |
83 dialogTitle:something |
72 "set the dialogs title" |
84 "set the dialogs title" |
73 |
85 |
74 dialogTitle := something. |
86 dialogTitle := something. |
75 ! |
87 ! |
125 ^ fileNameEntryField model |
137 ^ fileNameEntryField model |
126 ! |
138 ! |
127 |
139 |
128 model:aFilenameHolder |
140 model:aFilenameHolder |
129 fileNameEntryField model:aFilenameHolder. |
141 fileNameEntryField model:aFilenameHolder. |
|
142 ! |
|
143 |
|
144 selectAllInitially |
|
145 fileNameEntryField selectAllInitially |
|
146 |
|
147 "Created: / 20-10-2010 / 17:50:23 / cg" |
130 ! ! |
148 ! ! |
131 |
149 |
132 !FilenameWidgetWithHistory methodsFor:'accessing-channels'! |
150 !FilenameWidgetWithHistory methodsFor:'accessing-channels'! |
133 |
151 |
134 enableChannel:aValueHolder |
152 enableChannel:aValueHolder |
258 ifFalse:[ |
276 ifFalse:[ |
259 filesOnly |
277 filesOnly |
260 ifTrue:[ resources string:'Select File' ] |
278 ifTrue:[ resources string:'Select File' ] |
261 ifFalse:[ resources string:'Select Path' ]]]. |
279 ifFalse:[ resources string:'Select Path' ]]]. |
262 |
280 |
263 defaultPath := self model value. |
281 defaultPath := (self model notNil) |
|
282 ifTrue:[ self model value ] |
|
283 ifFalse:[ fileNameEntryField contents ]. |
264 defaultPath notNil ifTrue:[ |
284 defaultPath notNil ifTrue:[ |
265 defaultDir := defaultPath asFilename directory. |
285 defaultDir := defaultPath asFilename directory. |
266 ] ifFalse:[ |
286 ] ifFalse:[ |
267 defaultDir := initialDirectoryHolder value. |
287 defaultDir := initialDirectoryHolder value. |
268 ]. |
288 ]. |
273 ]. |
293 ]. |
274 path isEmptyOrNil ifTrue:[ ^ self ]. |
294 path isEmptyOrNil ifTrue:[ ^ self ]. |
275 |
295 |
276 initialDirectoryHolder value:path asFilename directory. |
296 initialDirectoryHolder value:path asFilename directory. |
277 "/ lastDirectoryHolder value:path directory. |
297 "/ lastDirectoryHolder value:path directory. |
278 self model value:path. |
298 self model notNil ifTrue:[ |
279 |
299 self model value:path. |
280 "Modified: / 02-10-2006 / 14:45:54 / cg" |
300 ]. |
|
301 fileNameEntryField contents:path. |
|
302 |
|
303 "Modified: / 20-10-2010 / 17:57:36 / cg" |
281 ! ! |
304 ! ! |
282 |
305 |
283 !FilenameWidgetWithHistory class methodsFor:'documentation'! |
306 !FilenameWidgetWithHistory class methodsFor:'documentation'! |
284 |
307 |
285 version |
308 version |
286 ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.14 2010-10-19 15:05:09 cg Exp $' |
309 ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.15 2010-10-21 13:06:21 cg Exp $' |
287 ! |
310 ! |
288 |
311 |
289 version_CVS |
312 version_CVS |
290 ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.14 2010-10-19 15:05:09 cg Exp $' |
313 ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.15 2010-10-21 13:06:21 cg Exp $' |
291 ! ! |
314 ! ! |