[Pkg] The Trunk: Tools-tfel.713.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Aug 30 17:06:44 UTC 2016
Tim Felgentreff uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-tfel.713.mcz
==================== Summary ====================
Name: Tools-tfel.713
Author: tfel
Time: 7 August 2016, 12:23:14.060169 pm
UUID: 49f4e8ed-6302-4bcd-93dc-a1c9072eebb0
Ancestors: Tools-tfel.712
fix font color in Project load and save dialogs, you really cannot see the default
=============== Diff against Tools-mt.711 ===============
Item was changed:
----- Method: ArchiveViewer class>>descriptionForPartsBin (in category 'parts bin') -----
descriptionForPartsBin
+ ^ self partName: 'Zip Tool' translatedNoop
+ categories: #()
+ documentation: 'A viewer and editor for Zip archive files' translatedNoop
- ^ self partName: 'Zip Tool'
- categories: #(Tools)
- documentation: 'A viewer and editor for Zip archive files'
!
Item was changed:
----- Method: ArchiveViewer class>>serviceAddToNewZip (in category 'file list services') -----
serviceAddToNewZip
"Answer a service for adding the file to a new zip"
^ FileModifyingSimpleServiceEntry
provider: self
+ label: 'add file to new zip' translatedNoop
- label: 'add file to new zip'
selector: #addFileToNewZip:
+ description: 'add file to new zip' translatedNoop
+ buttonLabel: 'to new zip' translatedNoop!
- description: 'add file to new zip'
- buttonLabel: 'to new zip'!
Item was changed:
----- Method: ArchiveViewer class>>serviceExtractAll (in category 'file list services') -----
serviceExtractAll
"Answer a service for opening in a zip viewer"
^ FileModifyingSimpleServiceEntry
provider: self
+ label: 'extract all to...' translatedNoop
- label: 'extract all to...'
selector: #extractAllFrom:
+ description: 'extract all files to a user-specified directory' translatedNoop
+ buttonLabel: 'extract all' translatedNoop!
- description: 'extract all files to a user-specified directory'
- buttonLabel: 'extract all'!
Item was changed:
----- Method: ArchiveViewer class>>serviceOpenInZipViewer (in category 'class initialization') -----
serviceOpenInZipViewer
"Answer a service for opening in a zip viewer"
^ SimpleServiceEntry
provider: self
+ label: 'open in zip viewer' translatedNoop
- label: 'open in zip viewer'
selector: #openOn:
+ description: 'open in zip viewer' translatedNoop
+ buttonLabel: 'open zip' translatedNoop!
- description: 'open in zip viewer'
- buttonLabel: 'open zip'!
Item was changed:
----- Method: ArchiveViewer>>writePrependingFile (in category 'archive operations') -----
writePrependingFile
| result name prependedName |
self canSaveArchive ifFalse: [ ^self ].
+ result _ (StandardFileMenu newFileMenu: FileDirectory default)
+ startUpWithCaption: 'Destination Zip File Name:' translated.
- result := (StandardFileMenu newFileMenu: FileDirectory default)
- startUpWithCaption: 'Destination Zip File Name:'.
result ifNil: [ ^self ].
+ name _ result directory fullNameFor: result name.
- name := result directory fullNameFor: result name.
(archive canWriteToFileNamed: name)
ifFalse: [ self inform: name, ' is used by one or more members
in your archive, and cannot be overwritten.
+ Try writing to another file name' translated.
- Try writing to another file name'.
^self ].
+ result _ (StandardFileMenu oldFileMenu: FileDirectory default)
+ startUpWithCaption: 'Prepended File:' translated.
- result := (StandardFileMenu oldFileMenu: FileDirectory default)
- startUpWithCaption: 'Prepended File:'.
result ifNil: [ ^self ].
+ prependedName _ result directory fullNameFor: result name.
- prependedName := result directory fullNameFor: result name.
[ archive writeToFileNamed: name prependingFileNamed: prependedName ]
on: Error
do: [ :ex | self inform: ex description. ].
self changed: #memberList "in case CRC's and compressed sizes got set"!
Item was changed:
----- Method: Browser class>>registerInFlapsRegistry (in category 'class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#Browser. #prototypicalToolWindow. 'Browser' translatedNoop. 'A Browser is a tool that allows you to view all the code of all the classes in the system' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(#Browser #prototypicalToolWindow 'Browser' 'A Browser is a tool that allows you to view all the code of all the classes in the system' )
forFlapNamed: 'Tools']!
Item was changed:
----- Method: ChangeList class>>serviceBrowseChangeFile (in category 'fileIn/Out') -----
serviceBrowseChangeFile
"Answer a service for opening a changelist browser on a file"
^ (SimpleServiceEntry
provider: self
+ label: 'changelist browser' translatedNoop
- label: 'changelist browser'
selector: #browseStream:
+ description: 'open a changelist tool on this file' translatedNoop
+ buttonLabel: 'changes' translatedNoop)
- description: 'open a changelist tool on this file'
- buttonLabel: 'changes')
argumentGetter: [ :fileList | fileList readOnlyStream ]!
Item was changed:
----- Method: ChangeList class>>serviceBrowseCompressedChangeFile (in category 'fileIn/Out') -----
serviceBrowseCompressedChangeFile
"Answer a service for opening a changelist browser on a file"
^ SimpleServiceEntry
provider: self
+ label: 'changelist browser' translatedNoop
- label: 'changelist browser'
selector: #browseCompressedChangesFile:
+ description: 'open a changelist tool on this file' translatedNoop
+ buttonLabel: 'changes' translatedNoop!
- description: 'open a changelist tool on this file'
- buttonLabel: 'changes'!
Item was changed:
----- Method: ChangeList class>>serviceBrowseDotChangesFile (in category 'fileIn/Out') -----
serviceBrowseDotChangesFile
"Answer a service for opening a changelist browser on the tail end of a .changes file"
^ SimpleServiceEntry
provider: self
+ label: 'recent changes in file' translatedNoop
- label: 'recent changes in file'
selector: #browseRecentLogOnPath:
+ description: 'open a changelist tool on recent changes in file' translatedNoop
+ buttonLabel: 'recent changes' translatedNoop!
- description: 'open a changelist tool on recent changes in file'
- buttonLabel: 'recent changes'!
Item was changed:
----- Method: ChangeSorter class>>registerInFlapsRegistry (in category 'deprecated') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#ChangeSorter. #prototypicalToolWindow. 'Change Set' translatedNoop. 'A tool that allows you to view and manipulate all the code changes in a single change set' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(ChangeSorter prototypicalToolWindow 'Change Set' 'A tool that allows you to view and manipulate all the code changes in a single change set')
forFlapNamed: 'Tools']!
Item was changed:
----- Method: ChangeSorter>>checkThatSidesDiffer: (in category 'changeSet menu') -----
checkThatSidesDiffer: escapeBlock
"If the change sets on both sides of the dual sorter are the same, put up an error message and escape via escapeBlock, else proceed happily"
+ parent ifNil: [^ escapeBlock value]. "Not relevant unless in dual change sorter."
+
(myChangeSet == (parent other: self) changeSet)
ifTrue:
[self inform:
'This command requires that the
change sets selected on the two
sides of the change sorter *not*
+ be the same.' translated.
- be the same.'.
^ escapeBlock value]
!
Item was changed:
----- Method: DualChangeSorter class>>registerInFlapsRegistry (in category 'class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#DualChangeSorter, #prototypicalToolWindow. 'Change Sorter' translatedNoop. 'Shows two change sets side by side' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(DualChangeSorter prototypicalToolWindow 'Change Sorter' 'Shows two change sets side by side')
forFlapNamed: 'Tools']!
Item was changed:
----- Method: FileContentsBrowser class>>serviceBrowseCode (in category 'file list services') -----
serviceBrowseCode
"Answer the service of opening a file-contents browser"
^ (SimpleServiceEntry
provider: self
+ label: 'code-file browser' translatedNoop
- label: 'code-file browser'
selector: #browseStream:
+ description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code' translatedNoop
+ buttonLabel: 'code' translatedNoop)
- description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code'
- buttonLabel: 'code')
argumentGetter: [ :fileList | fileList readOnlyStream ]!
Item was changed:
----- Method: FileContentsBrowser class>>serviceBrowseCodeFiles (in category 'file list services') -----
serviceBrowseCodeFiles
^ (SimpleServiceEntry
provider: self
+ label: 'browse code files' translatedNoop
- label: 'browse code files'
selector: #selectAndBrowseFile:)
argumentGetter: [ :fileList | fileList ];
yourself!
Item was changed:
----- Method: FileContentsBrowser class>>serviceBrowseCompressedCode (in category 'file list services') -----
serviceBrowseCompressedCode
"Answer a service for opening a changelist browser on a file"
^ (SimpleServiceEntry
provider: self
+ label: 'code-file browser' translatedNoop
- label: 'code-file browser'
selector: #browseCompressedCodeStream:
+ description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code' translatedNoop
+ buttonLabel: 'code' translatedNoop)
- description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code'
- buttonLabel: 'code')
argumentGetter: [ :fileList | fileList readOnlyStream ]!
Item was changed:
----- Method: FileList class>>registerInFlapsRegistry (in category 'class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#FileList . #prototypicalToolWindow, 'File List' translatedNoop. 'A File List is a tool for browsing folders and files on disks and on ftp types.' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(FileList prototypicalToolWindow 'File List' 'A File List is a tool for browsing folders and files on disks and on ftp types.')
forFlapNamed: 'Tools']!
Item was changed:
----- Method: FileList>>deleteDirectory (in category 'volume list and pattern') -----
deleteDirectory
"Remove the currently selected directory"
| localDirName |
+ directory entries size = 0 ifFalse:[^self inform:'Directory must be empty' translated].
+ localDirName _ directory localName.
+ (self confirm: ('Really delete {1}?' translated format: {localDirName})) ifFalse: [^ self].
- directory entries size = 0 ifFalse:[^self inform:'Directory must be empty'].
- localDirName := directory localName.
- (self confirm: 'Really delete ' , localDirName , '?') ifFalse: [^ self].
self volumeListIndex: self volumeListIndex-1.
directory deleteDirectory: localDirName.
self updateFileList.!
Item was changed:
----- Method: FileList>>serviceAddNewDirectory (in category 'own services') -----
serviceAddNewDirectory
"Answer a service entry characterizing the 'add new directory' command"
^ SimpleServiceEntry
provider: self
+ label: 'add new directory' translatedNoop
- label: 'add new directory'
selector: #addNewDirectory
+ description: 'adds a new, empty directory (folder)' translatedNoop!
- description: 'adds a new, empty directory (folder)' !
Item was changed:
----- Method: FileList>>serviceAddNewFile (in category 'own services') -----
serviceAddNewFile
"Answer a service entry characterizing the 'add new file' command"
+ ^ SimpleServiceEntry
+ provider: self
+ label: 'add new file' translatedNoop
+ selector: #addNewFile
+ description: 'create a new,. empty file, and add it to the current directory.' translatedNoop!
- ^ SimpleServiceEntry provider: self label: 'add new file' selector: #addNewFile description: 'create a new,. empty file, and add it to the current directory.'!
Item was changed:
----- Method: FileList>>serviceAllFileOptions (in category 'own services') -----
serviceAllFileOptions
+ ^ {SimpleServiceEntry
+ provider: self
+ label: 'more...' translatedNoop
+ selector: #offerAllFileOptions
+ description: 'show all the options available' translatedNoop}!
- ^ {SimpleServiceEntry provider: self label: 'more...' selector: #offerAllFileOptions description: 'show all the options available'}!
Item was changed:
----- Method: FileList>>serviceCompressFile (in category 'own services') -----
serviceCompressFile
"Answer a service for compressing a file"
+ ^ SimpleServiceEntry
+ provider: self
+ label: 'compress' translatedNoop
+ selector: #compressFile
+ description: 'compress file' translatedNoop
+ buttonLabel: 'compress' translatedNoop!
- ^ SimpleServiceEntry provider: self label: 'compress' selector: #compressFile description: 'compress file' buttonLabel: 'compress'!
Item was changed:
----- Method: FileList>>serviceCopyName (in category 'own services') -----
serviceCopyName
+ ^ (SimpleServiceEntry
+ provider: self
+ label: 'copy name to clipboard' translatedNoop
+ selector: #copyName
+ description:'copy name to clipboard' translatedNoop )!
- ^ (SimpleServiceEntry provider: self label: 'copy name to clipboard' selector: #copyName description:'copy name to clipboard' )!
Item was changed:
----- Method: FileList>>serviceDeleteFile (in category 'own services') -----
serviceDeleteFile
+ ^ (SimpleServiceEntry
+ provider: self
+ label: 'delete' translatedNoop
+ selector: #deleteFile)
+ description: 'delete the seleted item' translatedNoop!
- ^ (SimpleServiceEntry provider: self label: 'delete' selector: #deleteFile)
- description: 'delete the seleted item'!
Item was changed:
----- Method: FileList>>serviceGet (in category 'own services') -----
serviceGet
"Answer a service for getting the entire file"
^ (SimpleServiceEntry
provider: self
+ label: 'get entire file' translatedNoop
- label: 'get entire file'
selector: #get
+ description: 'if the file has only been partially read in, because it is very large, read the entire file in at this time.' translatedNoop)!
- description: 'if the file has only been partially read in, because it is very large, read the entire file in at this time.')!
Item was changed:
----- Method: FileList>>serviceGetEncodedText (in category 'own services') -----
serviceGetEncodedText
^ (SimpleServiceEntry
provider: self
+ label: 'view as encoded text' translatedNoop
- label: 'view as encoded text'
selector: #getEncodedText
+ description: 'view as encoded text' translatedNoop)
- description: 'view as encoded text')
!
Item was changed:
----- Method: FileList>>serviceGetHex (in category 'own services') -----
serviceGetHex
^ (SimpleServiceEntry
provider: self
+ label: 'view as hex' translatedNoop
- label: 'view as hex'
selector: #getHex
+ description: 'view as hex' translatedNoop)
- description: 'view as hex')
!
Item was changed:
----- Method: FileList>>serviceRenameFile (in category 'own services') -----
serviceRenameFile
+ ^ (SimpleServiceEntry
+ provider: self
+ label: 'rename' translatedNoop
+ selector: #renameFile
+ description: 'rename file' translatedNoop)!
- ^ (SimpleServiceEntry provider: self label: 'rename' selector: #renameFile description: 'rename file')!
Item was changed:
----- Method: FileList>>serviceSortByDate (in category 'own services') -----
serviceSortByDate
"Answer a service for sorting by date"
^ (SimpleServiceEntry new
provider: self
+ label: 'by date' translatedNoop
- label: 'by date'
selector: #sortByDate
+ description: 'sort entries by date' translatedNoop)
- description: 'sort entries by date')
extraSelector: #sortingByDate;
+ buttonLabel: 'date' translatedNoop!
- buttonLabel: 'date'!
Item was changed:
----- Method: FileList>>serviceSortByName (in category 'own services') -----
serviceSortByName
"Answer a service for soring by name"
^ (SimpleServiceEntry new
+ provider: self label: 'by name' translatedNoop
+ selector: #sortByName
+ description: 'sort entries by name' translatedNoop)
- provider: self label: 'by name' selector: #sortByName
- description: 'sort entries by name')
extraSelector: #sortingByName;
+ buttonLabel: 'name' translatedNoop!
- buttonLabel: 'name'!
Item was changed:
----- Method: FileList>>serviceSortBySize (in category 'own services') -----
serviceSortBySize
"Answer a service for sorting by size"
^ (SimpleServiceEntry
provider: self
+ label: 'by size' translatedNoop
- label: 'by size'
selector: #sortBySize
+ description: 'sort entries by size' translatedNoop)
- description: 'sort entries by size')
extraSelector: #sortingBySize;
+ buttonLabel: 'size' translatedNoop!
- buttonLabel: 'size'!
Item was changed:
----- Method: FileList>>serviceViewContentsInWorkspace (in category 'own services') -----
serviceViewContentsInWorkspace
"Answer a service for viewing the contents of a file in a workspace"
+ ^ (SimpleServiceEntry provider: self label: 'workspace with contents' translatedNoop
+ selector: #viewContentsInWorkspace)
+ description: 'open a new Workspace whose contents are set to the contents of this file' translatedNoop!
- ^ (SimpleServiceEntry provider: self label: 'workspace with contents' selector: #viewContentsInWorkspace)
- description: 'open a new Workspace whose contents are set to the contents of this file'!
Item was changed:
----- Method: FileList2 class>>morphicViewProjectLoader2InWorld:reallyLoad:dirFilterType: (in category 'blue ui') -----
morphicViewProjectLoader2InWorld: aWorld reallyLoad: aBoolean dirFilterType: aSymbol
| window aFileList buttons treePane textColor1 fileListPane pane2a pane2b treeExtent filesExtent |
window := AlignmentMorphBob1 newColumn.
window hResizing: #shrinkWrap; vResizing: #shrinkWrap.
+ textColor1 := Color black.
- textColor1 := Color r: 0.742 g: 0.839 b: 1.0.
aFileList := self new directory: FileDirectory default.
aFileList
optionalButtonSpecs: aFileList servicesForProjectLoader;
fileSelectionBlock: (
aSymbol == #limitedSuperSwikiDirectoryList ifTrue: [
MessageSend receiver: self selector: #projectOnlySelectionMethod:
] ifFalse: [
self projectOnlySelectionBlock
]
);
"dirSelectionBlock: self hideSqueakletDirectoryBlock;"
modalView: window.
window
setProperty: #FileList toValue: aFileList;
wrapCentering: #center; cellPositioning: #topCenter;
borderWidth: ColorTheme current dialogBorderWidth;
borderColor: ColorTheme current dialogBorderColor;
useRoundedCorners.
buttons := {{'OK'. ColorTheme current okColor}. {'Cancel'. ColorTheme current cancelColor}} collect: [ :each |
self blueButtonText: each first textColor: textColor1 color: each second inWindow: window
].
aWorld width < 800 ifTrue: [
treeExtent := 150 at 300.
filesExtent := 350 at 300.
] ifFalse: [
treeExtent := 250 at 300.
filesExtent := 350 at 300.
].
(treePane := aFileList morphicDirectoryTreePaneFiltered: aSymbol)
extent: treeExtent;
retractable: false;
borderWidth: 0.
fileListPane := aFileList morphicFileListPane
extent: filesExtent;
retractable: false;
borderWidth: 0.
window
addARow: {
window fancyText: 'Load A Project' translated font: Preferences standardEToysTitleFont color: textColor1
};
addARowCentered: {
buttons first.
(Morph new extent: 30 at 5) color: Color transparent.
buttons second
};
addARow: {
window fancyText: 'Please select a project' translated font: Preferences standardEToysFont color: textColor1
};
addARow: {
(window inAColumn: {(pane2a := window inARow: {window inAColumn: {treePane}})
useRoundedCorners;
layoutInset: 0;
borderWidth: ColorTheme current dialogPaneBorderWidth;
borderColor: ColorTheme current dialogPaneBorderColor
}) layoutInset: 10.
(window inAColumn: {(pane2b := window inARow: {window inAColumn: {fileListPane}})
useRoundedCorners;
layoutInset: 0;
borderWidth: ColorTheme current dialogPaneBorderWidth;
borderColor: ColorTheme current dialogPaneBorderColor
}) layoutInset: 10.
}.
window fullBounds.
window fillWithRamp: ColorTheme current dialogRampOrColor oriented: 0.65.
pane2a fillWithRamp: ColorTheme current dialogPaneRampOrColor oriented: (0.7 @ 0.35).
pane2b fillWithRamp: ColorTheme current dialogPaneRampOrColor oriented: (0.7 @ 0.35).
"
buttons do: [ :each |
each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0).
].
"
buttons first
on: #mouseUp
send: (aBoolean ifTrue: [#okHitForProjectLoader] ifFalse: [#okHit])
to: aFileList.
buttons second on: #mouseUp send: #cancelHit to: aFileList.
aFileList postOpen.
window position: aWorld topLeft + (aWorld extent - window extent // 2).
window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0).
window becomeModal.
^ window openInWorld: aWorld.!
Item was changed:
----- Method: FileList2 class>>morphicViewProjectSaverFor: (in category 'blue ui') -----
morphicViewProjectSaverFor: aProject
"
(FileList2 morphicViewProjectSaverFor: Project current) openInWorld
"
| window aFileList buttons treePane pane2 textColor1 option treeExtent buttonData buttonRow |
+ textColor1 := Color black.
- textColor1 := Color r: 0.742 g: 0.839 b: 1.0.
aFileList := self new directory: ServerDirectory projectDefaultDirectory.
aFileList dirSelectionBlock: self hideSqueakletDirectoryBlock.
window := AlignmentMorphBob1 newColumn.
window hResizing: #shrinkWrap; vResizing: #shrinkWrap.
aFileList modalView: window.
window
setProperty: #FileList toValue: aFileList;
wrapCentering: #center; cellPositioning: #topCenter;
borderWidth: ColorTheme current dialogBorderWidth;
borderColor: ColorTheme current dialogBorderColor;
useRoundedCorners.
buttonData := Preferences enableLocalSave
ifTrue: [{
{'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. ColorTheme current okColor}.
{'Save on local disk only'. #saveLocalOnlyHit. 'saves in the Squeaklets folder'. ColorTheme current okColor}.
{'Cancel'. #cancelHit. 'return without saving'. ColorTheme current cancelColor}
}]
ifFalse: [{
{'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. ColorTheme current okColor}.
{'Cancel'. #cancelHit. 'return without saving'. ColorTheme current cancelColor}
}].
buttons := buttonData collect: [ :each |
(self blueButtonText: each first textColor: textColor1 color: each fourth inWindow: window)
setBalloonText: each third translated;
hResizing: #shrinkWrap;
on: #mouseUp send: each second to: aFileList
].
option := aProject world
valueOfProperty: #SuperSwikiPublishOptions
ifAbsent: [#initialDirectoryList].
aProject world removeProperty: #SuperSwikiPublishOptions.
treeExtent := World height < 500
ifTrue: [ 350 at 150 ]
ifFalse: [ 350 at 300 ].
(treePane := aFileList morphicDirectoryTreePaneFiltered: option)
extent: treeExtent;
retractable: false;
borderWidth: 0.
window
addARowCentered: {
window fancyText: 'Publish This Project' translated font: Preferences standardEToysTitleFont color: textColor1
}.
buttonRow := OrderedCollection new.
buttons do: [:button | buttonRow add: button] separatedBy: [buttonRow add: ((Morph new extent: 30 at 5) color: Color transparent)].
" addARowCentered: {
buttons first.
(Morph new extent: 30 at 5) color: Color transparent.
buttons second.
(Morph new extent: 30 at 5) color: Color transparent.
buttons third
};"
window
addARowCentered: buttonRow;
addARowCentered: { (window inAColumn: {(ProjectViewMorph on: aProject) lock}) layoutInset: 4};
addARowCentered: {
window fancyText: 'Please select a folder' translated font: Preferences standardEToysFont color: textColor1
};
addARow: {
(
window inAColumn: {
(pane2 := window inARow: {window inAColumn: {treePane}})
useRoundedCorners;
layoutInset: 0;
borderWidth: ColorTheme current dialogPaneBorderWidth;
borderColor: ColorTheme current dialogPaneBorderColor
}
) layoutInset: 10
}.
window fullBounds.
window fillWithRamp: ColorTheme current dialogRampOrColor oriented: 0.65.
pane2 fillWithRamp: ColorTheme current dialogPaneRampOrColor oriented: (0.7 @ 0.35).
"
buttons do: [ :each |
each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0).
].
"
window setProperty: #morphicLayerNumber toValue: 11.
aFileList postOpen.
window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0).
^ window !
Item was changed:
----- Method: FileList2>>serviceCancel (in category 'own services') -----
serviceCancel
"Answer a service for hitting the cancel button"
^ (SimpleServiceEntry new
+ provider: self
+ label: 'cancel' translatedNoop
+ selector: #cancelHit
+ description: 'hit here to cancel ' translatedNoop)
+ buttonLabel: 'cancel' translatedNoop!
- provider: self label: 'cancel' selector: #cancelHit
- description: 'hit here to cancel ')
- buttonLabel: 'cancel'!
Item was changed:
----- Method: FileList2>>serviceOkay (in category 'own services') -----
serviceOkay
"Answer a service for hitting the okay button"
^ (SimpleServiceEntry new
+ provider: self
+ label: 'okay' translatedNoop
+ selector: #okHit
+ description: 'hit here to accept the current selection' translatedNoop)
+ buttonLabel: 'ok' translatedNoop!
- provider: self label: 'okay' selector: #okHit
- description: 'hit here to accept the current selection')
- buttonLabel: 'ok'!
Item was changed:
----- Method: FileList2>>serviceOpenProjectFromFile (in category 'own services') -----
serviceOpenProjectFromFile
"Answer a service for opening a .pr project file"
^ SimpleServiceEntry
provider: self
+ label: 'load as project' translatedNoop
- label: 'load as project'
selector: #openProjectFromFile
+ description: 'open project from file' translatedNoop
+ buttonLabel: 'load' translatedNoop!
- description: 'open project from file'
- buttonLabel: 'load'!
Item was changed:
----- Method: ProcessBrowser class>>registerInFlapsRegistry (in category 'class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#ProcessBrowser. #prototypicalToolWindow. 'Processes' translatedNoop. 'A Process Browser shows you all the running processes' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(ProcessBrowser prototypicalToolWindow 'Processes' 'A Process Browser shows you all the running processes')
forFlapNamed: 'Tools'.]!
More information about the Packages
mailing list