Skip to content

Commit 5bda1ab

Browse files
LeonBeinLeonBein
committed
2 parents 591b293 + 5c97dc4 commit 5bda1ab

13 files changed

+51
-40
lines changed

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/afterBuildWith..st‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
toolbuilder
2+
afterBuildWith: aBuilder
3+
4+
aBuilder class = MorphicToolBuilder
5+
ifTrue: [self styleMenuBar: aBuilder]

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/buildWith..st‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -22,4 +22,6 @@ buildWith: builder
2222
self createSlide.
2323
self window: window.
2424

25+
self afterBuildWith: builder.
26+
2527
^ window

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/createButtonSpec.with..st‎

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,8 @@
11
toolbuilder
22
createButtonSpec: aDictionary with: aBuilder
33

4-
| buttonSpec |
5-
buttonSpec := aBuilder pluggableButtonSpec new.
6-
buttonSpec style: #none.
7-
^ buttonSpec
4+
^ aBuilder pluggableButtonSpec new
5+
style: #none;
86
model: (aDictionary at: #model ifAbsent: self);
97
frame: (aDictionary at: #frame);
108
name: (aDictionary at: #name ifAbsent: 'a Button');

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/createMiniatureViewSpec..st‎

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,13 @@
11
toolbuilder
22
createMiniatureViewSpec: aBuilder
3-
| panelSpec |
4-
panelSpec := aBuilder pluggableScrollPaneSpec new.
5-
panelSpec
3+
4+
^ aBuilder pluggableScrollPaneSpec new
65
model: self;
76
frame: self miniatureViewLayoutFrame;
87
name: #MiniatureView;
98
vScrollBarPolicy: #always;
109
horizontalResizing: #spaceFill;
1110
layout: #vertical;
1211
wantsResizeHandles: false;
13-
children: #slideMiniatures.
14-
^ panelSpec
12+
children: #slideMiniatures;
13+
yourself

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/createSlide.st‎

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -5,8 +5,9 @@ createSlide
55
newSlide := PSSlide new.
66
newSlide setModel: self.
77
self slides add: newSlide afterIndex: self currentSlideNumber.
8-
self selectSlideNumber: self currentSlideNumber + 1.
9-
self updateSlideMiniatures.
10-
self updateCurrentMiniature.
8+
self
9+
selectSlideNumber: self currentSlideNumber + 1;
10+
updateSlideMiniatures;
11+
updateCurrentMiniature.
1112
^ newSlide
1213

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/createSlideContainerIn..st‎

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,4 +3,6 @@ createSlideContainerIn: slideViewport
33

44
self slideContainer: PSSlideContainer new.
55
self slideContainer setModel: self.
6-
slideViewport addMorph: self slideContainer fullFrame: (LayoutFrame fractions: (0@0 corner: 1@1))
6+
slideViewport
7+
addMorph: self slideContainer
8+
fullFrame: (LayoutFrame fractions: (0@0 corner: 1@1))

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/createSlideNumberLabelSpec..st‎

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,10 @@
11
toolbuilder
22
createSlideNumberLabelSpec: aBuilder
33

4-
| labelSpec |
5-
labelSpec := aBuilder pluggableInputFieldSpec new.
6-
labelSpec
4+
^ aBuilder pluggableInputFieldSpec new
75
model: self;
86
name: #SlideNumberLabel;
97
frame: (0.2@0.0 corner: 0.3@1.0);
108
getText: #slideNumberString;
11-
setText: #slideNumberString:.
12-
^ labelSpec
9+
setText: #slideNumberString:;
10+
yourself

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/createSlideViewportSpec..st‎

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,9 @@
11
toolbuilder
22
createSlideViewportSpec: aBuilder
3-
| panelSpec |
4-
panelSpec := aBuilder pluggablePanelSpec new.
5-
panelSpec
3+
4+
^ aBuilder pluggablePanelSpec new
65
model: self;
76
frame: self viewPortLayoutFrame;
87
name: #SlideViewport;
9-
children: OrderedCollection new.
10-
^ panelSpec
8+
children: OrderedCollection new;
9+
yourself

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/createWindowSpec..st‎

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,10 @@
11
toolbuilder
22
createWindowSpec: aBuilder
33

4-
| windowSpec |
5-
windowSpec := aBuilder pluggableWindowSpec new.
6-
windowSpec
4+
^ aBuilder pluggableWindowSpec new
75
model: self;
86
label: 'PowerSqueak';
7+
minimumExtent: 500@300;
98
extent: 500 @ 300;
10-
children: OrderedCollection new.
11-
^ windowSpec
9+
children: OrderedCollection new;
10+
yourself

‎packages/Presenter-Core.package/PSPresentationTool.class/instance/menuBarColor.st‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,4 +2,4 @@ toolbuilder
22
menuBarColor
33

44
^ (UserInterfaceTheme current get: #color for: #PluggableButtonMorphPlus)
5-
ifNotNil: [:color | color darker]
5+
ifNotNil: [:color | color]

0 commit comments

Comments
 (0)