diff --git a/.squot-materialize b/.squot-materialize index 325218c..af24640 100644 --- a/.squot-materialize +++ b/.squot-materialize @@ -1,64 +1,85 @@ [ + SquotImageMapper { + #path : FSAbsolutePath [ + 'assets', + 'Cloverleaf.png' + ], + #encoding : Class [ #PNGReadWriter ] + }, + SquotImageMapper { + #path : FSAbsolutePath [ + 'assets', + 'play.png' + ], + #encoding : @4 + }, SquotTonelMapper { #package : MCPackage { - #name : 'BaselineOfSqueakKara' + #name : 'SqueakKara-Tests' }, #path : FSAbsolutePath [ 'src' ] }, - SquotTonelMapper { - #package : MCPackage { - #name : 'SqueakKara-Core' - }, - #path : @4 + SquotImageMapper { + #path : FSAbsolutePath [ + 'assets', + 'stop.png' + ], + #encoding : @4 + }, + SquotImageMapper { + #path : FSAbsolutePath [ + 'assets', + 'Kara-FacingUp.png' + ], + #encoding : @4 }, SquotTonelMapper { #package : MCPackage { - #name : 'SqueakKara-Tests' + #name : 'SqueakKara-Core' }, - #path : @4 + #path : @9 }, SquotImageMapper { #path : FSAbsolutePath [ 'assets', - 'Trunk.png' + 'pause.png' ], - #encoding : Class [ #PNGReadWriter ] + #encoding : @4 }, SquotImageMapper { #path : FSAbsolutePath [ 'assets', - 'Cloverleaf.png' + 'Trunk.png' ], - #encoding : Class [ #PNGReadWriter ] + #encoding : @4 }, SquotImageMapper { #path : FSAbsolutePath [ 'assets', - 'Kara-FacingUp.png' + 'Kara-FacingLeft.png' ], - #encoding : Class [ #PNGReadWriter ] + #encoding : @4 + }, + SquotTonelMapper { + #package : MCPackage { + #name : 'BaselineOfSqueakKara' + }, + #path : @9 }, SquotImageMapper { #path : FSAbsolutePath [ 'assets', 'Kara-FacingRight.png' ], - #encoding : Class [ #PNGReadWriter ] + #encoding : @4 }, SquotImageMapper { #path : FSAbsolutePath [ 'assets', 'Kara-FacingDown.png' ], - #encoding : Class [ #PNGReadWriter ] - }, - SquotImageMapper { - #path : FSAbsolutePath [ - 'assets', - 'Kara-FacingLeft.png' - ], - #encoding : Class [ #PNGReadWriter ] + #encoding : @4 } -] +] \ No newline at end of file diff --git a/assets/pause.png b/assets/pause.png new file mode 100644 index 0000000..99e08d8 Binary files /dev/null and b/assets/pause.png differ diff --git a/assets/play.png b/assets/play.png new file mode 100644 index 0000000..9cb77e6 Binary files /dev/null and b/assets/play.png differ diff --git a/assets/stop.png b/assets/stop.png new file mode 100644 index 0000000..6d76482 Binary files /dev/null and b/assets/stop.png differ diff --git a/src/SqueakKara-Core/SKExecuteControls.class.st b/src/SqueakKara-Core/SKExecuteControls.class.st index 5246a02..524424a 100644 --- a/src/SqueakKara-Core/SKExecuteControls.class.st +++ b/src/SqueakKara-Core/SKExecuteControls.class.st @@ -12,16 +12,15 @@ Class { { #category : #widgets, - #'squeak_changestamp' : 'EB 6/22/2024 15:05' + #'squeak_changestamp' : 'EB 6/23/2024 19:42' } SKExecuteControls >> actionRun [ - |dict label texture| + |dict texture| dict := Dictionary new. - dict at: #terminated put:[self environment run. label := 'pause'. texture := self pauseTextureFilename]. - dict at: #suspended put:[self environment resume. label := 'pause'. texture := self pauseTextureFilename]. - dict at: #running put:[self environment pause. label := 'resume'. texture := self runTextureFilename]. + dict at: #terminated put:[self environment run. texture := self pauseTextureFilename]. + dict at: #suspended put:[self environment resume. texture := self pauseTextureFilename]. + dict at: #running put:[self environment pause. texture := self runTextureFilename]. (dict at: self environment executerState) value. - self buttonRun label: label. self buttonRunSetTexture: texture. ] @@ -70,12 +69,11 @@ SKExecuteControls >> addWidgetCentered: aWidget atXPosition: aXValue [ { #category : #widgets, - #'squeak_changestamp' : 'EB 6/22/2024 15:00' + #'squeak_changestamp' : 'EB 6/23/2024 19:41' } SKExecuteControls >> buildButtonRun [ ^IconicButton new - label: 'run'; target: self; actionSelector: #actionRun; color: Color lightGray. @@ -83,12 +81,11 @@ SKExecuteControls >> buildButtonRun [ { #category : #widgets, - #'squeak_changestamp' : 'EB 6/22/2024 15:00' + #'squeak_changestamp' : 'EB 6/23/2024 19:42' } SKExecuteControls >> buildButtonStop [ ^ IconicButton new - label: 'stop'; target: self; actionSelector: #actionStop; color: Color lightGray @@ -218,20 +215,20 @@ SKExecuteControls >> initialize [ { #category : #texture, - #'squeak_changestamp' : 'EB 6/22/2024 15:02' + #'squeak_changestamp' : 'EB 6/23/2024 19:40' } SKExecuteControls >> pauseTextureFilename [ - ^'Trunk.png' + ^'pause.png' ] { #category : #texture, - #'squeak_changestamp' : 'EB 6/22/2024 14:55' + #'squeak_changestamp' : 'EB 6/23/2024 19:40' } SKExecuteControls >> runTextureFilename [ - ^'Trunk.png' + ^'play.png' ] { @@ -262,11 +259,11 @@ SKExecuteControls >> sliderSpeedValueChanged: aValue [ { #category : #texture, - #'squeak_changestamp' : 'EB 6/22/2024 15:02' + #'squeak_changestamp' : 'EB 6/23/2024 19:40' } SKExecuteControls >> stopTextureFilename [ - ^'Trunk.png' + ^'stop.png' ] { diff --git a/src/SqueakKara-Core/SKExecuter.class.st b/src/SqueakKara-Core/SKExecuter.class.st index d172825..5c0296b 100644 --- a/src/SqueakKara-Core/SKExecuter.class.st +++ b/src/SqueakKara-Core/SKExecuter.class.st @@ -81,14 +81,14 @@ SKExecuter >> executeBlock: aBlock [ { #category : #initialization, - #'squeak_changestamp' : 'EB 6/22/2024 15:07' + #'squeak_changestamp' : 'EB 6/22/2024 14:13' } SKExecuter >> initialize [ self kara: SKKaraDecorator new. self kara executer: self. self compiler: Compiler new. - self speed: 25. + self speed: 5. self state: #terminated. ^self ]