equal
deleted
inserted
replaced
2031 ) |
2031 ) |
2032 (MenuItem |
2032 (MenuItem |
2033 label: '-' |
2033 label: '-' |
2034 ) |
2034 ) |
2035 (MenuItem |
2035 (MenuItem |
|
2036 enabled: hasResourceFileSelected |
2036 label: 'Show Contents of Resourcefile' |
2037 label: 'Show Contents of Resourcefile' |
2037 itemValue: readAndShowResources |
2038 itemValue: readAndShowResources |
2038 translateLabel: true |
2039 translateLabel: true |
|
2040 ) |
|
2041 (MenuItem |
|
2042 enabled: hasResourceFileSelected |
|
2043 label: 'Resource File Editor' |
|
2044 itemValue: openResourceFileEditor |
|
2045 translateLabel: true |
|
2046 showBusyCursorWhilePerforming: true |
2039 ) |
2047 ) |
2040 ) |
2048 ) |
2041 nil |
2049 nil |
2042 nil |
2050 nil |
2043 ) |
2051 ) |
5960 |
5968 |
5961 openRP |
5969 openRP |
5962 self openOSCommandWithFiles:'realplay' |
5970 self openOSCommandWithFiles:'realplay' |
5963 ! |
5971 ! |
5964 |
5972 |
|
5973 openResourceFileEditor |
|
5974 |
|
5975 self |
|
5976 openTool: Tools::InternationalLanguageTranslationEditor |
|
5977 with: #openOnFile: |
|
5978 ! |
|
5979 |
5965 openSlideShow |
5980 openSlideShow |
5966 |dir| |
5981 |dir| |
5967 |
5982 |
5968 dir := self theSingleSelectedDirectoryOrNil. |
5983 dir := self theSingleSelectedDirectoryOrNil. |
5969 dir isNil ifTrue:[^ self]. |
5984 dir isNil ifTrue:[^ self]. |
6000 |
6015 |
6001 ^ self |
6016 ^ self |
6002 openTool:aToolClass |
6017 openTool:aToolClass |
6003 with:#openOn: |
6018 with:#openOn: |
6004 ignoreDirectories:ignoreDirs |
6019 ignoreDirectories:ignoreDirs |
|
6020 ! |
|
6021 |
|
6022 openTool:aToolClass with:aSelector |
|
6023 "open a tool on the selected file(s)" |
|
6024 |
|
6025 ^ self openTool:aToolClass with:aSelector ignoreDirectories:true |
6005 ! |
6026 ! |
6006 |
6027 |
6007 openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs |
6028 openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs |
6008 "open a tool on the selected file(s)" |
6029 "open a tool on the selected file(s)" |
6009 |
6030 |
6489 |
6510 |
6490 ^ [ self currentSelectedFiles size > 0 |
6511 ^ [ self currentSelectedFiles size > 0 |
6491 and:[ self hasMP3Player value]] |
6512 and:[ self hasMP3Player value]] |
6492 ! |
6513 ! |
6493 |
6514 |
|
6515 hasResourceFileSelected |
|
6516 |
|
6517 ^ [ |
|
6518 |sel| |
|
6519 |
|
6520 sel := self currentSelectedFiles. |
|
6521 sel notEmptyOrNil ifTrue:[ |
|
6522 sel conform:[:fn | fn suffix asLowercase = 'rs']. |
|
6523 ] ifFalse:[ |
|
6524 false |
|
6525 ] |
|
6526 ] |
|
6527 ! |
|
6528 |
6494 hasSlideShow |
6529 hasSlideShow |
6495 |
6530 |
6496 ^ [CodingExamples_GUI::SlideShow notNil] |
6531 ^ [CodingExamples_GUI::SlideShow notNil] |
6497 ! |
6532 ! |
6498 |
6533 |
6499 hasSnapshotSelection |
6534 hasSnapshotSelection |
6500 |
6535 |
6501 ^ [ |
6536 ^ [ |
6502 | files | |
6537 | files | |
|
6538 |
6503 files := self currentSelectedFiles. |
6539 files := self currentSelectedFiles. |
6504 ((files size == 1) |
6540 ((files size == 1) |
6505 and:[ files first hasSuffix:'img' ]) |
6541 and:[ files first hasSuffix:'img' ]) |
6506 ] |
6542 ] |
6507 ! |
6543 ! |
6511 and:[XML::XMLParser isLoaded]] |
6547 and:[XML::XMLParser isLoaded]] |
6512 ! |
6548 ! |
6513 |
6549 |
6514 hasXmlFileSelected |
6550 hasXmlFileSelected |
6515 |
6551 |
6516 ^ [|sel fileName fn suff| |
6552 ^ [ |
|
6553 |sel fileName| |
6517 |
6554 |
6518 sel := self currentSelectedFiles. |
6555 sel := self currentSelectedFiles. |
6519 sel size == 1 ifTrue:[ |
6556 sel size == 1 ifTrue:[ |
6520 fileName := sel first. |
6557 fileName := sel first. |
6521 fileName notNil ifTrue:[ |
6558 fileName notNil ifTrue:[ |
6522 suff := fileName suffix asLowercase. |
6559 fileName suffix asLowercase = 'xml' |
6523 suff = 'xml' |
|
6524 ] ifFalse:[ |
6560 ] ifFalse:[ |
6525 false |
6561 false |
6526 ] |
6562 ] |
6527 ] ifFalse:[ |
6563 ] ifFalse:[ |
6528 false |
6564 false |
7456 ! ! |
7492 ! ! |
7457 |
7493 |
7458 !AbstractFileBrowser class methodsFor:'documentation'! |
7494 !AbstractFileBrowser class methodsFor:'documentation'! |
7459 |
7495 |
7460 version |
7496 version |
7461 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.384 2008-10-21 14:05:50 ca Exp $' |
7497 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.385 2008-11-14 13:35:42 cg Exp $' |
7462 ! ! |
7498 ! ! |