'From Squeak3.8 of ''5 May 2005'' [latest update: #6665] on 29 November 2005 at 2:05:12 am'!
WatchMorph subclass: #DirtyWatch
	instanceVariableNames: 'hackedTime'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Enno-hacks'!
!DirtyWatch commentStamp: 'E.S. 11/29/2005 01:31' prior: 0!
Internal hack!! Do not provide this!
!DirtyWatch methodsFor: 'drawing' stamp: 'E.S. 11/29/2005 01:37'!
drawOn: aCanvas
	"Draw the watch on the given canvas"
	| pHour pMin pSec time centerColor |
	time := hackedTime.
	pHour := self radius: 0.6 hourAngle: time hours + (time minutes/60.0).
	pMin := self radius: 0.72 hourAngle: (time minutes / 5.0).
	pSec := self radius: 0.8 hourAngle: (time seconds / 5.0).
	centerColor := cColor
		ifNil:
			[Color transparent]
		ifNotNil:
			[time hours < 12
				ifTrue: [cColor muchLighter]
				ifFalse: [cColor]].
	antialias ifTrue:
		[aCanvas asBalloonCanvas
			aaLevel: 4;
			drawOval: (bounds insetBy: borderWidth // 2 + 1) color: self fillStyle
				borderWidth: borderWidth borderColor: borderColor;
			drawOval: (bounds insetBy: self extent*0.35) color: centerColor
				borderWidth: 0 borderColor: Color black;
			drawPolygon: {self center. pHour}
				color: Color transparent borderWidth: 3 borderColor: handsColor;
			drawPolygon: {self center. pMin}
				color: Color transparent borderWidth: 2 borderColor: handsColor;
			drawPolygon: {self center. pSec}
				color: Color transparent borderWidth: 1 borderColor: handsColor]
		ifFalse:
			[super drawOn: aCanvas.
			aCanvas
				fillOval: (bounds insetBy: self extent*0.35) color: centerColor;
				line: self center to: pHour width: 3 color: handsColor;
				line: self center to: pMin width: 2 color: handsColor;
				line: self center to: pSec width: 1 color: handsColor]
! !
!DirtyWatch methodsFor: 'initialization' stamp: 'E.S. 11/29/2005 02:03'!
initialize
	hackedTime := Time now.
	super initialize.
	antialias := true.
! !
!DirtyWatch methodsFor: 'accessing' stamp: 'E.S. 11/29/2005 01:36'!
hackedTime
	^ hackedTime! !
!DirtyWatch methodsFor: 'accessing' stamp: 'E.S. 11/29/2005 01:37'!
hackedTime: aTime
	hackedTime := aTime! !