[Pkg] The Trunk: Tools-dtl.774.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Nov 15 03:40:00 UTC 2017
David T. Lewis uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-dtl.774.mcz
==================== Summary ====================
Name: Tools-dtl.774
Author: dtl
Time: 14 November 2017, 10:39:54.257729 pm
UUID: c28e78a5-a2d2-40de-9eae-09e56276a1b1
Ancestors: Tools-tpr.773
Remove unnecessary references to global World.
=============== Diff against Tools-tpr.773 ===============
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 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: 1;
borderColor: (Color r: 0.9 g: 0.801 b: 0.2);
useRoundedCorners.
buttonData := Preferences enableLocalSave
ifTrue: [{
{'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}.
{'Save on local disk only'. #saveLocalOnlyHit. 'saves in the Squeaklets folder'. Color lightGreen}.
{'Cancel'. #cancelHit. 'return without saving'. Color lightRed}
}]
ifFalse: [{
{'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}.
{'Cancel'. #cancelHit. 'return without saving'. Color lightRed}
}].
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 := Project current world height < 500
- 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: 1;
borderColor: (Color r: 0.6 g: 0.7 b: 1)
}
) layoutInset: 10
}.
window fullBounds.
window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65.
pane2 fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) 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: TheWorldMenu>>startThenBrowseMessageTally (in category '*Tools') -----
startThenBrowseMessageTally
(self confirm: 'MessageTally will start now,
and stop when the cursor goes
to the top of the screen')
+ ifTrue: [ | world |
+ world := Project current world.
+ TimeProfileBrowser
- ifTrue: [TimeProfileBrowser
onBlock: [[Sensor peekPosition y > 10]
+ whileTrue: [world doOneCycle]]]!
- whileTrue: [World doOneCycle]]]!
More information about the Packages
mailing list