equal
deleted
inserted
replaced
681 #(#MenuItem |
681 #(#MenuItem |
682 #label: 'Copy File List' |
682 #label: 'Copy File List' |
683 #translateLabel: true |
683 #translateLabel: true |
684 #value: #copyFileList |
684 #value: #copyFileList |
685 ) |
685 ) |
|
686 #(#MenuItem |
|
687 #label: 'Copy Selected Filename' |
|
688 #translateLabel: true |
|
689 #value: #copySelectedFileName |
|
690 ) |
686 ) nil |
691 ) nil |
687 nil |
692 nil |
688 ) |
693 ) |
689 ) |
694 ) |
690 #(#MenuItem |
695 #(#MenuItem |
2669 ] |
2674 ] |
2670 ]) |
2675 ]) |
2671 asStringCollection asString. |
2676 asStringCollection asString. |
2672 |
2677 |
2673 "Modified: / 17.8.1998 / 10:13:10 / cg" |
2678 "Modified: / 17.8.1998 / 10:13:10 / cg" |
|
2679 ! |
|
2680 |
|
2681 copySelectedFileName |
|
2682 "copy the selected filename to the clipBoard (for easy paste)" |
|
2683 |
|
2684 |sel fileName| |
|
2685 |
|
2686 sel := fileListView selection. |
|
2687 sel size == 1 ifTrue:[ |
|
2688 fileName := fileList at:sel first. |
|
2689 self setTextSelection:fileName |
|
2690 ]. |
2674 ! |
2691 ! |
2675 |
2692 |
2676 menuExit |
2693 menuExit |
2677 self closeRequest |
2694 self closeRequest |
2678 |
2695 |
5481 ! ! |
5498 ! ! |
5482 |
5499 |
5483 !FileBrowser class methodsFor:'documentation'! |
5500 !FileBrowser class methodsFor:'documentation'! |
5484 |
5501 |
5485 version |
5502 version |
5486 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.264 1998-10-03 18:00:54 cg Exp $' |
5503 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.265 1998-10-09 14:18:26 cg Exp $' |
5487 ! ! |
5504 ! ! |