equal
deleted
inserted
replaced
3439 |
3439 |
3440 doAddTerminal |
3440 doAddTerminal |
3441 |dir| |
3441 |dir| |
3442 |
3442 |
3443 dir := self currentDirectory. |
3443 dir := self currentDirectory. |
3444 |
|
3445 dir isNil ifTrue:[ |
3444 dir isNil ifTrue:[ |
3446 dir := Filename homeDirectory |
3445 dir := Filename homeDirectory |
3447 ]. |
3446 ]. |
3448 |
3447 |
3449 self |
3448 self |
3450 applicationNamed:#FileApplicationNoteBook |
3449 applicationNamed:#FileApplicationNoteBook |
3451 ifPresentDo:[:appl | appl addTerminalIn:dir]. |
3450 ifPresentDo:[:appl | appl addTerminalIn:dir]. |
|
3451 |
|
3452 "Modified (format): / 10-04-2019 / 05:53:35 / Claus Gittinger" |
3452 ! |
3453 ! |
3453 |
3454 |
3454 doOpenSearchFile |
3455 doOpenSearchFile |
3455 |item file| |
3456 |item file| |
3456 |
3457 |
9465 ! |
9466 ! |
9466 |
9467 |
9467 initialCommandFor:fileName into:aBox |
9468 initialCommandFor:fileName into:aBox |
9468 "set a useful initial command for execute box." |
9469 "set a useful initial command for execute box." |
9469 |
9470 |
9470 self class initialCommandFor:fileName in:Filename currentDirectory intoBox:aBox |
9471 self class |
|
9472 initialCommandFor:fileName |
|
9473 in:self "Filename" currentDirectory |
|
9474 intoBox:aBox |
|
9475 |
|
9476 "Modified: / 10-04-2019 / 05:55:21 / Claus Gittinger" |
9471 ! |
9477 ! |
9472 |
9478 |
9473 isAbstractFileBrowser |
9479 isAbstractFileBrowser |
9474 |
9480 |
9475 ^ true |
9481 ^ true |