Skip to content

fix bug in the code #10

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

Open
Nyan11 wants to merge 1 commit into
base: main
Choose a base branch
from
Open

fix bug in the code #10

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
8 changes: 5 additions & 3 deletions ...lecule-Geographical-Position-Example/ManifestMoleculeGeographicalPositionExample.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,9 @@ To open the instructions execute the follwing code with a DoIt action :
MolGeoPosHelper openAsUnclosableWindow
"
Class {
#name : #ManifestMoleculeGeographicalPositionExample,
#superclass : #PackageManifest,
#category : #'Molecule-Geographical-Position-Example-Manifest'
#name : 'ManifestMoleculeGeographicalPositionExample',
#superclass : 'PackageManifest',
#category : 'Molecule-Geographical-Position-Example-Manifest',
#package : 'Molecule-Geographical-Position-Example',
#tag : 'Manifest'
}
38 changes: 20 additions & 18 deletions src/Molecule-Geographical-Position-Example/MolGeoButtonElementAbstract.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,22 +1,24 @@
Class {
#name : #MolGeoButtonElementAbstract,
#superclass : #BlElement,
#category : #'Molecule-Geographical-Position-Example-Application'
#name : 'MolGeoButtonElementAbstract',
#superclass : 'BlElement',
#category : 'Molecule-Geographical-Position-Example-Application',
#package : 'Molecule-Geographical-Position-Example',
#tag : 'Application'
}

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementAbstract class >> example [

"See subclasses"
]

{ #category : #testing }
{ #category : 'testing' }
MolGeoButtonElementAbstract class >> isAbstract [

^ self == MolGeoButtonElementAbstract
]

{ #category : #'pyramid-serialized-bloc' }
{ #category : 'pyramid-serialized-bloc' }
MolGeoButtonElementAbstract class >> pystonSpec [
"This class has been generated using Pyramid.

Expand Down Expand Up @@ -238,7 +240,7 @@ MolGeoButtonElementAbstract class >> pystonSpec [
]'
]

{ #category : #initialization }
{ #category : 'initialization' }
MolGeoButtonElementAbstract >> buildElements [

self hasChildren ifTrue: [ self removeChildren ].
Expand All @@ -251,19 +253,19 @@ MolGeoButtonElementAbstract >> buildElements [
(BlLinearLayout vertical alignCenter)
]

{ #category : #defaults }
{ #category : 'defaults' }
MolGeoButtonElementAbstract >> defaultFontSize [

^ 16
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementAbstract >> hoverColor [

^ self shouldBeImplemented
]

{ #category : #accessing }
{ #category : 'accessing' }
MolGeoButtonElementAbstract >> icon: aForm [

| background iconElement |
Expand All @@ -277,20 +279,20 @@ MolGeoButtonElementAbstract >> icon: aForm [
c horizontal exact: aForm extent y + iconElement margin width ]
]

{ #category : #initialization }
{ #category : 'initialization' }
MolGeoButtonElementAbstract >> initialize [

super initialize.
self buildElements.
self
when: BlMouseOverEvent
addEventHandlerOn: BlMouseOverEvent
do: [ :evt |
(self childWithId: #background) background: self hoverColor ].
self when: BlMouseOutEvent do: [ :evt |
self addEventHandlerOn: BlMouseOutEvent do: [ :evt |
(self childWithId: #background) background: self secondaryColor ].
]

{ #category : #accessing }
{ #category : 'accessing' }
MolGeoButtonElementAbstract >> label: aString [

| newLabel |
Expand All @@ -305,13 +307,13 @@ MolGeoButtonElementAbstract >> label: aString [
self replaceChild: (self childWithId: #label) with: newLabel
]

{ #category : #accessing }
{ #category : 'accessing' }
MolGeoButtonElementAbstract >> makeNewIconElement: aForm [

^ (aForm collectColors: [ :c | c isTransparent ifTrue: [ c ] ifFalse: [ self primaryColor ] ]) asElement
]

{ #category : #accessing }
{ #category : 'accessing' }
MolGeoButtonElementAbstract >> makeNewLabelElement: aString [

| rope |
Expand All @@ -322,13 +324,13 @@ MolGeoButtonElementAbstract >> makeNewLabelElement: aString [
^ rope asElement
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementAbstract >> primaryColor [

^ self shouldBeImplemented
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementAbstract >> secondaryColor [

^ self shouldBeImplemented
Expand Down
16 changes: 9 additions & 7 deletions src/Molecule-Geographical-Position-Example/MolGeoButtonElementNotSelected.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,12 @@
Class {
#name : #MolGeoButtonElementNotSelected,
#superclass : #MolGeoButtonElementAbstract,
#category : #'Molecule-Geographical-Position-Example-Application'
#name : 'MolGeoButtonElementNotSelected',
#superclass : 'MolGeoButtonElementAbstract',
#category : 'Molecule-Geographical-Position-Example-Application',
#package : 'Molecule-Geographical-Position-Example',
#tag : 'Application'
}

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementNotSelected class >> example [

self new
Expand All @@ -13,19 +15,19 @@ MolGeoButtonElementNotSelected class >> example [
openInNewSpace
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementNotSelected >> hoverColor [

^ Color fromHexString: '#bebdbf'
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementNotSelected >> primaryColor [

^ Color fromHexString: '#6c757d'
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementNotSelected >> secondaryColor [

^ Color transparent
Expand Down
18 changes: 10 additions & 8 deletions src/Molecule-Geographical-Position-Example/MolGeoButtonElementSelected.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,12 @@
Class {
#name : #MolGeoButtonElementSelected,
#superclass : #MolGeoButtonElementAbstract,
#category : #'Molecule-Geographical-Position-Example-Application'
#name : 'MolGeoButtonElementSelected',
#superclass : 'MolGeoButtonElementAbstract',
#category : 'Molecule-Geographical-Position-Example-Application',
#package : 'Molecule-Geographical-Position-Example',
#tag : 'Application'
}

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementSelected class >> example [

self new
Expand All @@ -13,13 +15,13 @@ MolGeoButtonElementSelected class >> example [
openInNewSpace
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementSelected >> hoverColor [

^ Color fromHexString: '#78A7D6'
]

{ #category : #accessing }
{ #category : 'accessing' }
MolGeoButtonElementSelected >> makeNewLabelElement: aString [

| rope |
Expand All @@ -31,13 +33,13 @@ MolGeoButtonElementSelected >> makeNewLabelElement: aString [
^ rope asElement
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementSelected >> primaryColor [

^ Color fromHexString: '#0D3151'
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoButtonElementSelected >> secondaryColor [

^ Color fromHexString: '#8DBEF1'
Expand Down
20 changes: 11 additions & 9 deletions src/Molecule-Geographical-Position-Example/MolGeoConnectedSwitchesElement.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,13 +1,15 @@
Class {
#name : #MolGeoConnectedSwitchesElement,
#superclass : #BlElement,
#name : 'MolGeoConnectedSwitchesElement',
#superclass : 'BlElement',
#instVars : [
'switches'
],
#category : #'Molecule-Geographical-Position-Example-Application'
#category : 'Molecule-Geographical-Position-Example-Application',
#package : 'Molecule-Geographical-Position-Example',
#tag : 'Application'
}

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
MolGeoConnectedSwitchesElement class >> example [

| help pharoBig |
Expand All @@ -20,13 +22,13 @@ MolGeoConnectedSwitchesElement class >> example [
openInNewSpace
]

{ #category : #accessing }
{ #category : 'accessing' }
MolGeoConnectedSwitchesElement >> deactivateAllSwitchesExcept: aMolGeoSwitchElement [

self switches do: [ :each | aMolGeoSwitchElement = each ifFalse: [ each state: false ] ]
]

{ #category : #initialization }
{ #category : 'initialization' }
MolGeoConnectedSwitchesElement >> initialize [

super initialize.
Expand All @@ -39,20 +41,20 @@ MolGeoConnectedSwitchesElement >> initialize [
c horizontal fitContent ]
]

{ #category : #accessing }
{ #category : 'accessing' }
MolGeoConnectedSwitchesElement >> switches [

^ switches
]

{ #category : #accessing }
{ #category : 'accessing' }
MolGeoConnectedSwitchesElement >> switches: anObject [

switches := anObject.
self addChildren: anObject.
switches ifEmpty: [ ^ self ].
switches do: [ :each |
each when: BlPrimaryClickEvent do: [ :evt |
each addEventHandlerOn: BlPrimaryClickEvent do: [ :evt |
self deactivateAllSwitchesExcept: each.
each state: true. ] ] .
switches first state: true
Expand Down
Loading