Hi Frank, I haven't tried the example yet. But I know from my own work that when you don't want steps #wantsSteps should return false. Otherwise each time you pick your morph up and drop it the system restarts stepping.
so wantsSteps (ck the spelling) ^ time isNil and stopStepping super stopStepping time := nil . startStepping super startStepping time := Time now. Hth, Yours in curiosity and service, --Jerome Peace --- On Sat, 3/6/10, FrankBz <[email protected]> wrote: > From: FrankBz <[email protected]> > Subject: [Newbies] LedMorph - step problem > To: [email protected] > Date: Saturday, March 6, 2010, 11:25 AM > > Hi, I'm trying to write a LedMorph that shows the actual > time. It should have > also two buttons, 'quit' which closes the frame and 'stop' > which should stop > the clock. > Unfortunately the stop button does not work and I can't > figure out where's > the problem. > Even by trying to send the stopStepping message manually > from a workspace > the LedMorph doesn't stop stepping. > Does anyone know what's the problem? > > I post the code, please tell me what I'm doing wrong. > > -> OriginalLed class has messages: initialize, step > (they overwrite ancestor > messages to set desired behavior) > > LedMorph subclass: #OriginalLed > instanceVariableNames: 'time' > classVariableNames: '' > poolDictionaries: '' > category: 'MyLed' > > initialize > super initialize . > time := Time new . > self chars: 8 . > self flash: true . > self extent: (1...@100) . > self position: (2...@150) . > > step > time := Time now . > self string: time print24 . > > -> LedFrame is a subclass of AlignmentMorph, which > contains the OriginalLed > and buttons. It defines 4 messages: > -> initialize, addControls, addLed, stopStepping > > AlignmentMorph subclass: #LedFrame > instanceVariableNames: 'controls led' > classVariableNames: '' > poolDictionaries: '' > category: 'MyLed' > > initialize > super initialize . > self listDirection: #bottomToTop . > self position: (200 @ 150) . > self addControls . > self addLed . > self openInWorld . > > addControls > controls := AlignmentMorph new > listDirection: #rightToLeft . > > controls addMorph: (SimpleButtonMorph > new target: led; label: 'stop'; > actionSelector: #stopStepping) . > controls addMorph: (SimpleButtonMorph > new target: self; label: 'quit'; > actionSelector: #delete) . > self addMorph: controls . > > addLed > led := OriginalLed new . > self addMorph: led . > > stopStepping > led stopStepping . > > I didn't write any comment inside the code, since it's very > simple to > understand. > Sorry if I misspelled any term or said anything wrong, I'm > a real squeak > beginner. > -- > View this message in context: > http://n4.nabble.com/LedMorph-step-problem-tp1582908p1582908.html > Sent from the Squeak - Beginners mailing list archive at > Nabble.com. > _______________________________________________ > Beginners mailing list > [email protected] > http://lists.squeakfoundation.org/mailman/listinfo/beginners > _______________________________________________ Beginners mailing list [email protected] http://lists.squeakfoundation.org/mailman/listinfo/beginners
