equal
deleted
inserted
replaced
3058 string := self getFileInfoString:longInfo. |
3058 string := self getFileInfoString:longInfo. |
3059 box title:string |
3059 box title:string |
3060 ] |
3060 ] |
3061 ] fork. |
3061 ] fork. |
3062 |
3062 |
3063 box showAtPointer. |
3063 box show. |
3064 updater terminate. |
3064 updater terminate. |
3065 box destroy |
3065 box destroy |
3066 ] |
3066 ] |
3067 ! |
3067 ! |
3068 |
3068 |
3311 self doRename:oldName to:newName. |
3311 self doRename:oldName to:newName. |
3312 lastOldName := oldName. |
3312 lastOldName := oldName. |
3313 lastNewName := newName. |
3313 lastNewName := newName. |
3314 ]. |
3314 ]. |
3315 |
3315 |
3316 queryBox showAtPointer |
3316 queryBox show. |
|
3317 queryBox destroy. |
3317 ] |
3318 ] |
3318 ! |
3319 ! |
3319 |
3320 |
3320 fileSelect:lineNr |
3321 fileSelect:lineNr |
3321 "selected a file - do nothing here" |
3322 "selected a file - do nothing here" |
3427 |
3428 |
3428 queryBox := FilenameEnterBox |
3429 queryBox := FilenameEnterBox |
3429 title:(resources at:'Create new directory:') withCRs |
3430 title:(resources at:'Create new directory:') withCRs |
3430 okText:(resources at:'Create') |
3431 okText:(resources at:'Create') |
3431 action:[:newName | self doCreateDirectory:newName]. |
3432 action:[:newName | self doCreateDirectory:newName]. |
3432 queryBox showAtPointer |
3433 queryBox show. |
|
3434 queryBox destroy. |
3433 |
3435 |
3434 "Modified: 23.4.1997 / 13:04:27 / cg" |
3436 "Modified: 23.4.1997 / 13:04:27 / cg" |
3435 ! |
3437 ! |
3436 |
3438 |
3437 newFile |
3439 newFile |
3449 ]. |
3451 ]. |
3450 sel := subView selection. |
3452 sel := subView selection. |
3451 sel notNil ifTrue:[ |
3453 sel notNil ifTrue:[ |
3452 queryBox initialText:(sel asString) |
3454 queryBox initialText:(sel asString) |
3453 ]. |
3455 ]. |
3454 queryBox showAtPointer |
3456 queryBox show. |
|
3457 queryBox destroy. |
3455 |
3458 |
3456 "Modified: / 23.4.1997 / 13:04:38 / cg" |
3459 "Modified: / 23.4.1997 / 13:04:38 / cg" |
3457 "Modified: / 16.1.1998 / 16:54:00 / stefan" |
3460 "Modified: / 16.1.1998 / 16:54:00 / stefan" |
3458 ! |
3461 ! |
3459 |
3462 |
3460 newHardLink |
3463 newHardLink |
3461 "ask for and create a hard link (unix only)" |
3464 "ask for and create a hard link (unix only)" |
3462 |
3465 |
3463 |sel box orgName1 name1 name2 f1 f2 err if1 if2| |
3466 |sel box ok orgName1 name1 name2 f1 f2 err if1 if2| |
3464 |
3467 |
3465 sel := self getSelectedFileName. |
3468 sel := self getSelectedFileName. |
3466 |
3469 |
3467 orgName1 := ''. |
3470 orgName1 := ''. |
3468 (sel size > 0) ifTrue:[ |
3471 (sel size > 0) ifTrue:[ |
3483 box addAbortAndOkButtons. |
3486 box addAbortAndOkButtons. |
3484 |
3487 |
3485 orgName1 size > 0 ifTrue:[ |
3488 orgName1 size > 0 ifTrue:[ |
3486 box focusOnField:if2. |
3489 box focusOnField:if2. |
3487 ]. |
3490 ]. |
3488 box showAtPointer. |
3491 box show. |
3489 |
3492 ok := box accepted. |
3490 box accepted ifTrue:[ |
3493 box destroy. |
|
3494 |
|
3495 ok ifTrue:[ |
3491 name1 := name1 value. |
3496 name1 := name1 value. |
3492 (name1 size == 0) ifTrue:[ |
3497 (name1 size == 0) ifTrue:[ |
3493 err := 'no name entered'. |
3498 err := 'no name entered'. |
3494 ] ifFalse:[ |
3499 ] ifFalse:[ |
3495 f1 := name1 asFilename. |
3500 f1 := name1 asFilename. |
3528 ! |
3533 ! |
3529 |
3534 |
3530 newSoftLink |
3535 newSoftLink |
3531 "ask for and create a soft link (unix only)" |
3536 "ask for and create a soft link (unix only)" |
3532 |
3537 |
3533 |sel box orgName1 name1 name2 f1 f2 err if1 if2| |
3538 |sel box ok orgName1 name1 name2 f1 f2 err if1 if2| |
3534 |
3539 |
3535 sel := self getSelectedFileName. |
3540 sel := self getSelectedFileName. |
3536 |
3541 |
3537 orgName1 := ''. |
3542 orgName1 := ''. |
3538 (sel size > 0) ifTrue:[ |
3543 (sel size > 0) ifTrue:[ |
3551 box addAbortAndOkButtons. |
3556 box addAbortAndOkButtons. |
3552 |
3557 |
3553 orgName1 size > 0 ifTrue:[ |
3558 orgName1 size > 0 ifTrue:[ |
3554 box focusOnField:if2. |
3559 box focusOnField:if2. |
3555 ]. |
3560 ]. |
3556 box showAtPointer. |
3561 box show. |
3557 |
3562 ok := box accepted. |
3558 box accepted ifTrue:[ |
3563 box destroy. |
|
3564 |
|
3565 ok ifTrue:[ |
3559 name1 := name1 value. |
3566 name1 := name1 value. |
3560 (name1 size == 0) ifTrue:[ |
3567 (name1 size == 0) ifTrue:[ |
3561 err := 'no name entered'. |
3568 err := 'no name entered'. |
3562 ] ifFalse:[ |
3569 ] ifFalse:[ |
3563 f1 := name1 asFilename. |
3570 f1 := name1 asFilename. |
5273 queryBox := FilenameEnterBox |
5280 queryBox := FilenameEnterBox |
5274 title:(resources at:'Change directory to:') withCRs |
5281 title:(resources at:'Change directory to:') withCRs |
5275 okText:(resources at:'Change') |
5282 okText:(resources at:'Change') |
5276 action:[:newName | dirName := newName]. |
5283 action:[:newName | dirName := newName]. |
5277 "/ queryBox initialText:''. |
5284 "/ queryBox initialText:''. |
5278 queryBox showAtPointer. |
5285 queryBox show. |
5279 queryBox destroy. |
5286 queryBox destroy. |
5280 dirName size == 0 ifTrue:[^ self]. |
5287 dirName size == 0 ifTrue:[^ self]. |
5281 |
5288 |
5282 self discardChangesDialog ifTrue:[ |
5289 self discardChangesDialog ifTrue:[ |
5283 self doChangeCurrentDirectoryTo:dirName updateHistory:true. |
5290 self doChangeCurrentDirectoryTo:dirName updateHistory:true. |
5341 |
5348 |
5342 fileName notNil ifTrue:[ |
5349 fileName notNil ifTrue:[ |
5343 self initialCommandFor:fileName into:box. |
5350 self initialCommandFor:fileName into:box. |
5344 ]. |
5351 ]. |
5345 box directory:currentDirectory. |
5352 box directory:currentDirectory. |
5346 box showAtPointer. |
5353 box show. |
5347 box destroy. |
5354 box destroy. |
5348 |
5355 |
5349 "Modified: / 7.9.1995 / 10:31:54 / claus" |
5356 "Modified: / 7.9.1995 / 10:31:54 / claus" |
5350 "Modified: / 16.9.1997 / 15:35:10 / stefan" |
5357 "Modified: / 16.9.1997 / 15:35:10 / stefan" |
5351 "Modified: / 14.8.1998 / 14:12:52 / cg" |
5358 "Modified: / 14.8.1998 / 14:12:52 / cg" |
7820 ! ! |
7827 ! ! |
7821 |
7828 |
7822 !FileBrowser class methodsFor:'documentation'! |
7829 !FileBrowser class methodsFor:'documentation'! |
7823 |
7830 |
7824 version |
7831 version |
7825 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.536 2003-06-12 12:18:10 cg Exp $' |
7832 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.537 2003-06-29 12:59:59 cg Exp $' |
7826 ! ! |
7833 ! ! |