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