equal
deleted
inserted
replaced
278 |
278 |
279 browseForFileOrDirectory |
279 browseForFileOrDirectory |
280 |path | |
280 |path | |
281 |
281 |
282 Dialog aboutToOpenBoxNotificationSignal handle:[:ex | |
282 Dialog aboutToOpenBoxNotificationSignal handle:[:ex | |
283 |dialog| |
283 ex box perform:#browseVisibleHolder with:true ifNotUnderstood:[]. |
284 |
|
285 dialog := ex parameter. |
|
286 dialog perform:#browseVisibleHolder with:true ifNotUnderstood:[]. |
|
287 ex proceed. |
|
288 ] do:[ |
284 ] do:[ |
289 |title defaultPath defaultDir| |
285 |title defaultPath defaultDir| |
290 |
286 |
291 title := dialogTitle notNil |
287 title := dialogTitle notNil |
292 ifTrue:[ dialogTitle ] |
288 ifTrue:[ dialogTitle ] |
340 ! ! |
336 ! ! |
341 |
337 |
342 !FilenameWidgetWithHistory class methodsFor:'documentation'! |
338 !FilenameWidgetWithHistory class methodsFor:'documentation'! |
343 |
339 |
344 version |
340 version |
345 ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.20 2011-10-05 13:00:06 cg Exp $' |
341 ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.21 2013-08-22 13:54:50 cg Exp $' |
346 ! |
342 ! |
347 |
343 |
348 version_CVS |
344 version_CVS |
349 ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.20 2011-10-05 13:00:06 cg Exp $' |
345 ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.21 2013-08-22 13:54:50 cg Exp $' |
350 ! ! |
346 ! ! |
|
347 |