equal
deleted
inserted
replaced
563 menu addItem:(MenuItem labeled:'-'). |
563 menu addItem:(MenuItem labeled:'-'). |
564 bookmarks do:[:dirName | |
564 bookmarks do:[:dirName | |
565 |pathName| |
565 |pathName| |
566 |
566 |
567 pathName := dirName asFilename pathName. |
567 pathName := dirName asFilename pathName. |
568 menu addItem:((MenuItem label:pathName value:#changeDirectoryTo:) |
568 menu addItem:((MenuItem |
569 argument:dirName; |
569 label:pathName |
570 yourself). |
570 itemValue:#changeDirectoryTo:) |
|
571 argument:dirName; |
|
572 yourself). |
571 ]. |
573 ]. |
572 ]. |
574 ]. |
573 ^ menu |
575 ^ menu |
574 |
576 |
575 "Modified: / 17.8.1998 / 10:13:05 / cg" |
577 "Modified: / 17.8.1998 / 10:13:05 / cg" |
694 m := Menu new. |
696 m := Menu new. |
695 |
697 |
696 self directoryHistory do:[:item | |
698 self directoryHistory do:[:item | |
697 | dirName | |
699 | dirName | |
698 dirName := item path. |
700 dirName := item path. |
699 m addItem:((MenuItem label:dirName value:#changeDirectoryTo:) |
701 m addItem:((MenuItem |
700 argument:dirName; |
702 label:dirName |
701 yourself). |
703 itemValue:#changeDirectoryTo:) |
|
704 argument:dirName; |
|
705 yourself). |
702 ]. |
706 ]. |
703 ]. |
707 ]. |
704 |
708 |
705 ^ m |
709 ^ m |
706 |
710 |
1459 m := Menu new. |
1463 m := Menu new. |
1460 |
1464 |
1461 "/ add the history items ... |
1465 "/ add the history items ... |
1462 |
1466 |
1463 VisitedFileHistory do:[:pathName | |
1467 VisitedFileHistory do:[:pathName | |
1464 m addItem:((MenuItem label:pathName asFilename baseName value:#revisitFile:) |
1468 m addItem:((MenuItem |
1465 argument:pathName; |
1469 label:pathName asFilename baseName |
1466 yourself). |
1470 itemValue:#revisitFile:) |
|
1471 argument:pathName; |
|
1472 yourself). |
1467 ]. |
1473 ]. |
1468 ^ m |
1474 ^ m |
1469 ! ! |
1475 ! ! |
1470 |
1476 |
1471 !FileBrowser class methodsFor:'queries'! |
1477 !FileBrowser class methodsFor:'queries'! |
7504 ! ! |
7510 ! ! |
7505 |
7511 |
7506 !FileBrowser class methodsFor:'documentation'! |
7512 !FileBrowser class methodsFor:'documentation'! |
7507 |
7513 |
7508 version |
7514 version |
7509 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.649 2013-06-05 13:22:16 stefan Exp $' |
7515 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.650 2013-06-21 00:45:14 cg Exp $' |
7510 ! |
7516 ! |
7511 |
7517 |
7512 version_CVS |
7518 version_CVS |
7513 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.649 2013-06-05 13:22:16 stefan Exp $' |
7519 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.650 2013-06-21 00:45:14 cg Exp $' |
7514 ! ! |
7520 ! ! |
7515 |
7521 |