Fix example

tatut · Jan 21, 2024 · f260c48 · f260c48
1 parent b0295c6
commit f260c48
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/LiveWeb-Examples/LWAnalogClock.class.st b/src/LiveWeb-Examples/LWAnalogClock.class.st
@@ -15,12 +15,11 @@ Class {
 
 { #category : #'as yet unclassified' }
 LWAnalogClock class >> exampleThreeOClock [
-
 	<lwExample:
 	'Show a clock at 7 minutes and 20 seconds past 3 o''clock'>
-	| aLWAnalogClock |
-	aLWAnalogClock := self new.
-	^ aLWAnalogClock class new time: (Time hour: 15 minute: 7 second: 20)
+	^ self new
+		  size: 200;
+		  time: (Time hour: 5 minute: 17 second: 55)
 ]
 
 { #category : #'as yet unclassified' }