equal
deleted
inserted
replaced
1305 ! ! |
1305 ! ! |
1306 |
1306 |
1307 !FileDialog methodsFor:'initialization & release'! |
1307 !FileDialog methodsFor:'initialization & release'! |
1308 |
1308 |
1309 commonPostOpen |
1309 commonPostOpen |
1310 |directory rootDirectory| |
1310 |directory rootDirectory selection| |
1311 |
1311 |
1312 "/ self windowGroup addPreEventHook:self. |
1312 "/ self windowGroup addPreEventHook:self. |
1313 |
1313 |
1314 "No ok and cancel buttons, when dialog is part of a larger dialog" |
1314 "No ok and cancel buttons, when dialog is part of a larger dialog" |
1315 self window topView isModal ifFalse:[ |
1315 self window topView isModal ifFalse:[ |
1333 treeBrowser allowFileOperations value:false. |
1333 treeBrowser allowFileOperations value:false. |
1334 self newDirectoryVisibilityHolder value:false. |
1334 self newDirectoryVisibilityHolder value:false. |
1335 ]. |
1335 ]. |
1336 self filenameHolder value:self startFilename. |
1336 self filenameHolder value:self startFilename. |
1337 treeBrowser expandEnforceSelectedItems. |
1337 treeBrowser expandEnforceSelectedItems. |
1338 |
1338 |
|
1339 selection := treeBrowser treeSelectionHolder value. |
|
1340 selection notEmptyOrNil ifTrue:[ |
|
1341 selection := selection first. |
|
1342 selection enforcedExpand. |
|
1343 treeBrowser browser makeItemVisible:selection withMinimumLines:5. |
|
1344 ]. |
1339 self window label:self initialText. |
1345 self window label:self initialText. |
1340 ! |
1346 ! |
1341 |
1347 |
1342 postBuildFileNameField:aWidget |
1348 postBuildFileNameField:aWidget |
1343 |
1349 |
1475 ! ! |
1481 ! ! |
1476 |
1482 |
1477 !FileDialog class methodsFor:'documentation'! |
1483 !FileDialog class methodsFor:'documentation'! |
1478 |
1484 |
1479 version |
1485 version |
1480 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.65 2004-06-23 07:53:31 penk Exp $' |
1486 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.66 2004-06-23 09:33:33 martin Exp $' |
1481 ! ! |
1487 ! ! |