Skip to content

Dev stage open feature #276

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
MagueresMathieu merged 10 commits into from
Jul 16, 2026
Merged

Dev stage open feature #276

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
0c12229
Add a feature that allows opening the interface in a window
Jun 4, 2026
009fe3d
update the button icon and apply the theme to the new window + arrang…
Jun 8, 2026
11bb129
Merge pull request #272 from OpenSmock/devStage
MagueresMathieu Jun 8, 2026
4f2b110
add 'metadata' method and add some tests
Jun 30, 2026
0b6fa38
Merge 11bb1298d518fa07024e070b5b05461129e18056
Jun 30, 2026
cd65cc6
Add properties to metadata method
Jul 7, 2026
6868560
improve metadata method, fix grid visibility problem and add tests
Jul 15, 2026
a510730
support instance-side methods in the 'open' feature
Jul 15, 2026
0d9502b
fix problem with tests
Jul 16, 2026
cb03c52
fix problem with tests
Jul 16, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
191 changes: 133 additions & 58 deletions src/Pyramid-Bloc/PyramidMainExtension.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,9 +17,62 @@ Class {
'gridColor',
'selectionWidgetExtension'
],
#classInstVars : [
'currentGridWindowSize',
'currentGridVisibility',
'currentGridSpacing',
'currentGridColor'
],
#category : #'Pyramid-Bloc-plugin-space-extensions'
}

{ #category : #accessing }
PyramidMainExtension class >> currentGridColor [

^ currentGridColor ifNil: [ ^ Color black ]
]

{ #category : #accessing }
PyramidMainExtension class >> currentGridColor: aColor [

currentGridColor := aColor
]

{ #category : #accessing }
PyramidMainExtension class >> currentGridSpacing [

^ currentGridSpacing ifNil: [ ^ 10 ]
]

{ #category : #accessing }
PyramidMainExtension class >> currentGridSpacing: anInteger [

currentGridSpacing := anInteger
]

{ #category : #accessing }
PyramidMainExtension class >> currentGridVisibility [
^ currentGridVisibility ifNil: [ ^ false ]


]

{ #category : #accessing }
PyramidMainExtension class >> currentGridVisibility: aBoolean [
currentGridVisibility := aBoolean
]

{ #category : #accessing }
PyramidMainExtension class >> currentGridWindowSize [

^ currentGridWindowSize ifNil: [ ^ 800 @ 600 ]
]

{ #category : #accessing }
PyramidMainExtension class >> currentGridWindowSize: aPoint [
currentGridWindowSize := aPoint
]

{ #category : #accessing }
PyramidMainExtension >> borderElement [

Expand All @@ -40,23 +93,23 @@ PyramidMainExtension >> containerElement [

{ #category : #'as yet unclassified' }
PyramidMainExtension >> createGrid [

"Remove the current all the line of the grid"

self gridElement removeChildWithId: #gridHorizontal.
self gridElement removeChildWithId: #gridVertical.
self gridElement removeChildWithId: #pixelGrid.

"Create the grid if gridVisibility is true"
gridVisibility ifTrue: [ self grid: self gridElement
cellSpacing: self gridSpacing
color: self gridColor
width: (self gridWindowSize x)
height: (self gridWindowSize y).
self selectionWidgetExtension movingLap: self gridSpacing
]
ifFalse: [ self selectionWidgetExtension movingLap: 1 ].

gridVisibility
ifTrue: [
self
grid: self gridElement
cellSpacing: self gridSpacing
color: self gridColor
width: self gridWindowSize x
height: self gridWindowSize y.
self selectionWidgetExtension movingLap: self gridSpacing ]
ifFalse: [ self selectionWidgetExtension movingLap: 1 ]
]

{ #category : #accessing }
Expand All @@ -80,22 +133,25 @@ PyramidMainExtension >> defaultGridColor [
{ #category : #'as yet unclassified' }
PyramidMainExtension >> defaultGridSpacing [
"Default spacing value of the grid"

^ 10
]

{ #category : #'as yet unclassified' }
PyramidMainExtension >> defaultGridVisibility [
"Default visibility value of the grid"
^ false
"Default visibility value of the grid"
^ false
]

{ #category : #accessing }
PyramidMainExtension >> editor: aPyramidEditor [

aPyramidEditor window at: #topRight addItem: [ :buttonBuilder |
buttonBuilder makeButtonWithIcon: self workplacePropertiesButton order: 10 ].

buttonBuilder
makeButtonWithIcon: self workplacePropertiesButton
order: 10 ].
self getSelectionWidgetExtension: aPyramidEditor.

]

{ #category : #geometry }
Expand All @@ -104,6 +160,7 @@ PyramidMainExtension >> extent: aPoint [
self elementAtWidgets extent: aPoint.
self sizeElement extent: aPoint.
self gridWindowSize: aPoint.
self class currentGridWindowSize: aPoint.

self createGrid
]
Expand Down Expand Up @@ -185,15 +242,10 @@ PyramidMainExtension >> gridColor [
^ gridColor
]

{ #category : #'as yet unclassified' }
PyramidMainExtension >> gridDefaultValueInitializer [

"Set the default parameter values of the grid"
gridWindowSize := self defaultExtent.
gridVisibility := self defaultGridVisibility.
gridSpacing := self defaultGridSpacing.
gridColor := self defaultGridColor.
self createGrid.
{ #category : #accessing }
PyramidMainExtension >> gridColor: aColor [

gridColor := aColor
]

{ #category : #accessing }
Expand All @@ -206,9 +258,22 @@ PyramidMainExtension >> gridSpacing [
^ gridSpacing
]

{ #category : #accessing }
PyramidMainExtension >> gridSpacing: anInteger [

gridSpacing := anInteger.
]

{ #category : #accessing }
PyramidMainExtension >> gridVisibility [
^ gridVisibility

^ gridVisibility
]

{ #category : #accessing }
PyramidMainExtension >> gridVisibility: aBoolean [

gridVisibility := aBoolean
]

{ #category : #accessing }
Expand All @@ -231,36 +296,54 @@ PyramidMainExtension >> informTransformationChanged [
{ #category : #initialization }
PyramidMainExtension >> initialize [
"Set the default parameter value of the grid"

self class currentGridWindowSize: self defaultExtent.
self class currentGridVisibility: self defaultGridVisibility.
self class currentGridSpacing: self defaultGridSpacing.
self class currentGridColor: self defaultGridColor.

gridWindowSize := self defaultExtent.
gridVisibility := self defaultGridVisibility.
gridSpacing := self defaultGridSpacing.
gridColor := self defaultGridColor.

"Set up the graphical parameter windows of the grid and the space extension"
workplacePropertiesView := PyramidWorkplacePropertiesPresenter new
workplaceSizeValue: self defaultExtent;
workplaceSizeValue: self defaultExtent;
whenWorkplaceValuesChangedDo: [ :point |
self extent: point ];
whenVisibilityChangedDo: [
self switchGridvisibility.
self createGrid ];
gridVisibility := workplacePropertiesView
visibilityButton
state.

self class currentGridVisibility:
gridVisibility.
self createGrid ];
spacingTextValue: self defaultGridSpacing;
whenSpacingTextChangedDo: [ :value |
(self checkZeroOrSubZeroGridSpacingValue: value)
ifTrue: [
self defaultGridSpacing <= 0 ifTrue: [
gridSpacing := 1.
^ self ].
gridSpacing := self defaultGridSpacing ]
ifFalse: [ gridSpacing := value ].
self createGrid ];
(self
checkZeroOrSubZeroGridSpacingValue:
value)
ifTrue: [
self defaultGridSpacing <= 0
ifTrue: [
gridSpacing := 1.
^ self ].
gridSpacing := self
defaultGridSpacing ]
ifFalse: [ gridSpacing := value ].
self class currentGridSpacing:
gridSpacing.
self createGrid ];
gridColorValue: self defaultGridColor;
whenColorValuesChangedDo: [ :color |
gridColor := color.
self createGrid ];
gridColor := color.
self class currentGridColor: color.
self createGrid ];
yourself.

workplacePropertiesView visibilityButton state: gridVisibility.


self defaultGridSpacing <= 0 ifTrue: [ gridSpacing := 1 ].
workplacePropertiesView spacingText value: gridSpacing.

Expand All @@ -271,8 +354,8 @@ PyramidMainExtension >> initialize [
help:
'Edit the properties of the workplace';
action: [
self workplacePropertiesPopover popup.
self refreshPopupWorkplaceProperties ];
self workplacePropertiesPopover popup.
self refreshPopupWorkplaceProperties ];
yourself.

"Creation of the pop-up"
Expand All @@ -286,8 +369,8 @@ PyramidMainExtension >> initialize [
containerElement := BlElement new
id: #MainExtension_containerElement;
constraintsDo: [ :c |
c vertical matchParent.
c horizontal matchParent ];
c vertical matchParent.
c horizontal matchParent ];
clipChildren: false;
zIndex: 0;
yourself.
Expand All @@ -298,8 +381,8 @@ PyramidMainExtension >> initialize [
border: self defaultBorder;
outskirts: BlOutskirts outside;
constraintsDo: [ :c |
c vertical matchParent.
c horizontal matchParent ];
c vertical matchParent.
c horizontal matchParent ];
clipChildren: false;
zIndex: 1;
preventMeAndChildrenMouseEvents;
Expand All @@ -309,18 +392,18 @@ PyramidMainExtension >> initialize [
gridElement := BlElement new
id: #MainExtension_gridElement;
constraintsDo: [ :c |
c vertical matchParent.
c horizontal matchParent ];
c vertical matchParent.
c horizontal matchParent ];
zIndex: 2.

borderElement addChild: gridElement.

sizeElement := BlElement new
id: #MainExtension_sizeElement;
extent: self defaultExtent;
clipChildren: false;
addChildren: {
containerElement .
containerElement.
borderElement } yourself
]

Expand Down Expand Up @@ -383,14 +466,6 @@ PyramidMainExtension >> sizeElement [
^ sizeElement
]

{ #category : #'as yet unclassified' }
PyramidMainExtension >> switchGridvisibility [
"Switch the visibility from true to false or false to true"
gridVisibility := self gridVisibility not.

^ self gridVisibility
]

{ #category : #accessing }
PyramidMainExtension >> workplacePropertiesButton [

Expand Down
Loading
Loading