added a flag in ToToggleTrackElement delatToLeft and deltaToRight to …

…point to my uggly code
pharo-graphics · Jul 24, 2023 · feea14b · feea14b
1 parent 855a41e
commit feea14b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/src/Toplo/ToToggleSwitchBarElement.class.st b/src/Toplo/ToToggleSwitchBarElement.class.st
@@ -24,8 +24,7 @@ ToToggleSwitchBarElement >> button [
 { #category : #accessing }
 ToToggleSwitchBarElement >> button: anElement [
 
-	anElement ifNotNil: [
-		anElement constraintsDo: [ :c | c linear vertical alignCenter ] ].
+	anElement ifNotNil: [ anElement constraintsDo: [ :c | c linear vertical alignCenter ] ].
 	button := anElement.
 	self updateChildren 
 ]

diff --git a/src/Toplo/ToToggleTrackElement.class.st b/src/Toplo/ToToggleTrackElement.class.st
@@ -10,15 +10,15 @@ Class {
 { #category : #sliding }
 ToToggleTrackElement >> deltaToLeft [
 
+	self flag: 'Uggly computation...Please fix my implementation'.
 	^ self width - self deltaToRight - self switchButton width - self padding left - self padding right - self switchBar margin right
 ]
 
 { #category : #sliding }
 ToToggleTrackElement >> deltaToRight [
 
-	^ self width - self switchButton position x - self switchButton width - self padding right - self padding left - self switchBar margin right
-
-
+	self flag: 'Uggly computation... Please fix my implementation'.
+	^ self requestedWidth - self switchButton position x - self switchButton requestedWidth - self padding right - self padding left - self switchBar margin right
 ]
 
 { #category : #initialization }