Button Event!!!!
EL Marjani Radouane
estel1212 at yahoo.fr
Tue Aug 23 13:44:04 UTC 2005
Thanks Edgar for your answer.
it was a good Help, but my great Problem is.
I will first writte my Code:
SketchMorph subclass: #HandyDesign
instanceVariableNames: 'nachrichten aHandyButton
aHandyDisplay hasMouseDownEffect mouseDownAction'
classVariableNames: 'Handysiemens'
poolDictionaries: ''
category: 'Morphic-Handy-Siemens'
HandyDesign>>initialize
"like a Mobile Telefon with display Button"
Handysiemens := SketchMorph fromFile:
'Bearbeitete\M65Rot.jpg'.
Handysiemens position: 0 @ 0.
aHandyDisplay := HandyDisplay new.
aHandyDisplay handyDisplayInitialize:
'Bearbeitete\display.jpg'.
Handysiemens addMorphFront: aHandyDisplay display.
aHandyButton := HandyButton new.
aHandyButton handyButtonInitialize.
Handysiemens addMorphFront: aHandyButton hButton.
Handysiemens openInWorld
HandyDesign>>displayChange
aHandyButton
on: #mouseDown
send: #clicked
to: self.
Handysiemens removeMorph: aHandyDisplay display.
nachrichten := HandyDisplay new.
nachrichten handyDisplayInitialize:
'Bearbeitete\Nachrichten.jpg'.
Handysiemens addMorphFront: nachrichten display.
Handysiemens openInWorld
HandyDesign>>handySiemens
^ Handysiemens
-----------------------------
SketchMorph subclass: #HandyDisplay
instanceVariableNames: 'nachrichten display
nachrichten1 aHandyDesign hasMouseDownEffect
mouseDownAction'
classVariableNames: ''
poolDictionaries: ''
category: 'Morphic-Handy-Siemens'
HandyDisplay>>handyDisplayInitialize: file
"Mobile Phone Display"
display := SketchMorph fromFile: file.
display extent: 144 @ 192.
display position: 72 @ 112
HandyDisplay>>display
^ display
-------------------------------------------
SimpleButtonMorph subclass: #HandyButton
instanceVariableNames: 'f bHandyDesign bHandyDisplay
hasMouseDownEffect mouseDownAction'
classVariableNames: 'HButton'
poolDictionaries: ''
category: 'Morphic-Handy-Siemens'
HandyButton>>HandyButton
f := Form fromFileNamed: 'bearbeitete\HButton1.jpg'.
HButton := IconicButton new.
HButton position: 124 @ 332.
HButton extent: 10 @ 10.
HButton borderWidth: 0.
HButton labelGraphic: f.
HandyButton>>hButton
^ HButton
HandyButton>>mouseDown: evt
new HandyDesign displayChange
"Hier is that Problem: I want to click on Button, and
Display will must change: take a new Picture!!!But es
geht wrong!!!!!!!!Help!!!!!!!!!!!!!!!!!"
HandyButton>>handlesMouseDown: evt
^ true
I want to click on Button(HButton), and
Display will must change: take a new Picture!!!But es
geht wrong!!!!!!!!Help!!!!!!!!!!!!!!!!!"
I hope someone have an idea. I have a lang day with
this Problem,
Thank you very muchh.
EL Marjani Radouane
___________________________________________________________________________
Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger
Téléchargez cette version sur http://fr.messenger.yahoo.com
More information about the Squeak-dev
mailing list
|