texturen für executecontrols

.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
 	}
-]
+]

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,25 +69,23 @@ 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.
 ]
 
 {
 	#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'
 ]
 
 {

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
 ]