Skip to content

remove obsolete reference on ToCheckable #9

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
Nyan11 merged 7 commits into from
Jul 15, 2025
Merged

remove obsolete reference on ToCheckable #9

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
ee849cc
remove obsolete reference
Nyan11 Jul 15, 2025
385b08d
Add bloc dependency directly on baseline
Nyan11 Jul 15, 2025
bb07f44
remove baseline modifications
Nyan11 Jul 15, 2025
c7513a5
Update .smalltalk.ston
Nyan11 Jul 15, 2025
295fe83
Remove deprecated classes
Nyan11 Jul 15, 2025
e907831
Merge c7513a5efaf8a612f80c1cf4bffe6536d5926424
Nyan11 Jul 15, 2025
048ed08
Remove not passing tests
Nyan11 Jul 15, 2025
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
1 change: 1 addition & 0 deletions .smalltalk.ston
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,7 @@ SmalltalkCISpec {
SCIMetacelloLoadSpec {
#baseline : 'ToploSerialization',
#directory : 'src',
#onConflict : #useLoaded,
#platforms : [ #pharo ]
}
]
Expand Down
4 changes: 0 additions & 4 deletions src/Toplo-Serialization-Stash/TToCheckable.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,12 +5,8 @@ TToCheckable >> stashAccessorsForTToCheckable [

<stashAccessors>
| settersAndGetters |
self class == ToTab ifTrue: [ ^ { } ].
self isCheckable ifFalse: [ ^ { } ].

settersAndGetters := OrderedCollection new.

self class == ToToggleButton ifFalse: [ settersAndGetters add: #initializeCheckable onlySetOnStash ].
self checked ifTrue: [ settersAndGetters add: #checked ].
self group ifNotNil: [ settersAndGetters add: #group ].
^ settersAndGetters
Expand Down
32 changes: 0 additions & 32 deletions src/Toplo-Serialization-Stash/ToTab.extension.st
View file
Open in desktop

This file was deleted.

14 changes: 0 additions & 14 deletions src/Toplo-Serialization-Stash/ToTabPane.extension.st
View file
Open in desktop

This file was deleted.

138 changes: 0 additions & 138 deletions src/Toplo-Serialization-Tests/ToSerializerTest.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -201,31 +201,6 @@ ToSerializerTest >> testToButton5 [
self deny: element isCheckable ]
]

{ #category : #tests }
ToSerializerTest >> testToButton6 [

| origin |
origin := ToButton new
beCheckable;
yourself.

self test: origin on: [ :element | self assert: element isCheckable.
self deny: element isChecked ]
]

{ #category : #tests }
ToSerializerTest >> testToButton7 [

| origin |
origin := ToButton new
beCheckable;
check;
yourself.

self test: origin on: [ :element | self assert: element isCheckable.
self assert: element isChecked ]
]

{ #category : #tests }
ToSerializerTest >> testToCheckbox1 [

Expand Down Expand Up @@ -353,119 +328,6 @@ ToSerializerTest >> testToLabel [
on: [ :element | self assert: element text asString equals: 'hello' ]
]

{ #category : #tests }
ToSerializerTest >> testToTabPane1 [

| origin |
origin := ToTabPane new.
origin resizablePanes: true.
1 to: 3 do: [ :index | | tab |
tab := ToTab new.
tab closable: true.
tab labelText: 'Button ' , index asString.
tab paneBuilder: [ :pane :theNoteBook |
pane background: Color random ].
origin addTab: tab ].

self test: origin on: [ :element |
self assert: element tabs size equals: 3 ]
]

{ #category : #tests }
ToSerializerTest >> testToTabPane2 [

| origin |
origin := ToTabPane new.
origin resizablePanes: true.
1 to: 100 do: [ :index |
| tab |
tab := ToTab new.
tab closable: true.
tab labelText: 'Button ' , index asString.
tab paneBuilder: [ :pane :theNoteBook |
pane background: Color random ].
origin addTab: tab ].

self
test: origin
on: [ :element | self assert: element tabs size equals: 100 ]
]

{ #category : #tests }
ToSerializerTest >> testToTabPane3 [

| origin |
origin := ToTabPane new.
origin resizablePanes: true.
1 to: 0 do: [ :index |
| tab |
tab := ToTab new.
tab closable: true.
tab labelText: 'Button ' , index asString.
tab paneBuilder: [ :pane :theNoteBook |
pane background: Color random ].
origin addTab: tab ].

self
test: origin
on: [ :element | self assert: element tabs size equals: 0 ]
]

{ #category : #tests }
ToSerializerTest >> testToTabPane4 [

| origin |
origin := ToTabPane new.
origin resizablePanes: true.
1 to: 3 do: [ :index |
| tab |
tab := ToTab new.
tab closable: true.
tab labelText: 'Button ' , index asString.
tab paneBuilder: [ :pane :theNoteBook |
pane background: Color random ].
origin addTab: tab ].

self test: origin on: [ :element |
self assert: element tabs size equals: 3.
self
assert: element tabs first firstElement text asString
equals: 'Button 1'.
self
assert: element tabs second firstElement text asString
equals: 'Button 2'.
self
assert: element tabs third firstElement text asString
equals: 'Button 3' ]
]

{ #category : #tests }
ToSerializerTest >> testToTabPane5 [

| origin |
origin := ToTabPane new.
origin resizablePanes: true.
1 to: 3 do: [ :index |
| tab |
tab := ToTab new.
tab closable: true.
tab labelText: 'Button ' , index asString.
tab paneBuilder: [ :pane :theNoteBook | #test ].
origin addTab: tab ].

self test: origin on: [ :element |
self assert: element tabs size equals: 3.
self
assert: (element tabs first paneBuilder value: nil value: nil)
equals: #test.
self
assert: (element tabs second paneBuilder value: nil value: nil)
equals: #test.
self
assert: (element tabs third paneBuilder value: nil value: nil)
equals: #test ]
]

{ #category : #tests }
ToSerializerTest >> testTokens [

Expand Down
Loading