Strange Behavior on RETURN

Monkey Targets Forums/Android/Strange Behavior on RETURN

Midimaster (Posted 2012) [#1]

hi, at the moment I develope a small GUI which should look like the Android GUI. Screenshot: Until yesterday everything was fine. But now it seems, that my function GadgetCheck() does not RETURN the value. GadgetCheck() should return the Id of the Buttons or Entries I touched. Here is the part of the function: [monkeycode].... If MausHit=MAUS_HIT Debug="Mausklick auf="+ Focus Return Focus Else Return 0 Endif[/monkeycode] When the problem appears my Debug$ shows, that the "If.." was true and the Focus% was set correct and now also should be returned, but in this calling part... [monkeycode] Method OnUpdate%() If KeyHit(KEY_ESCAPE) Then Error "" MausIn=Gadget.Check() If MausIn<>0 Then Oft=Oft+1 Debug2="!"+Oft+ " " Else Debug2="!NO " +Oft Endif [/monkeycode] ..the variable MausIn% often does get back nothing.The Oft% should show the times I pressed an Button When I set the Framerate to 5 it works always, With 15 it works some times, when I set the frame rate 30 or higher, I get nearly never a success. All the problem started, whaen I tried to integrate the virtual keyboard calling. But I am not sure, whether I only did not recognize it before... Here is the complete code: Strict Import mojo Import angelfont Global Game:MyGame, Debug$, MausIn%, Debug2$, Oft% Const ON%=1,OFF%=0 Const MAUS_DOWN%=1,MAUS_HIT%=2,MAUS_OFF%=0 Const HORIZONTAL%=1,VERTICAL%=2,BOTH%=3,IN_BORDER%=4,OUT_BORDER%=8,BORDER%=12 Const TEXT_FIELD%=1 Class MyGame Extends App Method OnCreate%() SetUpdateRate 15 Gadget.XRatio=DeviceWidth()/320.0 Gadget.YRatio=DeviceHeight()/480.0 ' id, x, y, b, h, Typ, Parent-ID Gadget.Font = New AngelFont() Gadget.Font.LoadFont("angel_verdana") Gadget.Create 1,0,0,460,380,3,0,"" ' Mutter aller Fenster Gadget.Create 2,0,0,360,120,3,1,"" ' Mutter für Top feld Gadget.Create 5,2,2, 356,56,TEXT_FIELD,1,"" Gadget.Create 6,5,65, 70,50,0,2,"A" Gadget.Create 7,85,65, 70,50,0,2,"B" Gadget.Create 8,165,65, 70,50,0,2,DeviceWidth() Gadget.Create 9,245,65, 70,50,0,2,DeviceHeight() Gadget.Create 3,0,120,360,260,0,1,"" 'Mutter für Scrollbereich Gadget.Create 4,0,0,360,760,0,3,"" ' Scrollbereich Gadget.Gadget(4).AllowScroll=VERTICAL|OUT_BORDER For Local i%=0 To 10 Gadget.Create 20+i,0,60*i,360,62,2,4,"Entry "+ (20+i) Next Return 0 End Method OnUpdate%() If KeyHit(KEY_ESCAPE) Then Error "" MausIn=Gadget.Check() If MausIn<>0 Then Oft=Oft+1 Debug2="!"+Oft+ " " Else Debug2="!NO " Endif 'Debug="Width="+ DeviceWidth() If MausIn>0 Then Gadget.Gadget(5).Text=Gadget.Gadget(MausIn).Text Gadget.Gadget(5).SetFocus Debug2=Debug2 + "click " + MausIn Else Debug2=Debug2+ "click NOT" + MausIn Endif Return 0 End Method OnRender%() Cls 0,111,0 Gadget.Draw SetColor 225,225,225 SetScissor 0,0,999,999 DrawRect 330,470,5,5 Scale 2,2 DrawText "Maus=" + Gadget.Focus + " Hit=" + Gadget.MausHit,2,200 DrawText "Debug=" + Debug,2,210 DrawText "Debug2=" + Oft,2,220 Return 0 End End Function Main%() Game=New MyGame() Return 0 End Class Gadget Global Liste: List <Gadget>= New List <Gadget> Global Font:AngelFont Global Blinkt%,BlinkTimer%,Focus%,KeyboardShown% Global WarScrolling% Global MausX%,MausY%,MausHit%,StartMausX%,StartMausY%,XRatio#,YRatio#,MustRender% Field Id%,X%,Y%,B%,H%,Typ%,Text$ Field Parent:Gadget, Visible%, Enable%, AllowScroll% Function MausAction:Void() MausX=TouchX()/XRatio MausY=TouchY()/YRatio If MausHit<>MouseDown() Select MausHit Case 0 MausHit=MAUS_DOWN StartMausX=MausX StartMausY=MausY WarScrolling=MausX+MausY Case MAUS_DOWN MausHit=MAUS_HIT StartMausX=0 StartMausY=0 If Abs(WarScrolling-(MausX+MausY))>20 MausHit=0 Endif Case MAUS_HIT MausHit=0 WarScrolling=0 End Select Endif End Function Function Create%(Id%,X%,Y%,B%,H%,Typ%,ElternID%,Text$="") Local loc:Gadget=New Gadget() loc.Id=Id loc.X=X loc.Y=Y loc.B=B loc.H=H loc.Typ=Typ loc.Text=Text loc.Visible=True loc.Enable=True If ElternID>0 loc.Parent=Gadget(ElternID) Else loc.Parent=Null Endif Liste.AddLast loc Return 0 End Function Gadget:Gadget(Id%) For Local loc:Gadget = Eachin Liste If Id=loc.Id Then Return loc Next Return Null End Function Draw%() Scale XRatio,YRatio Gadget(1).DrawOne (0,0,0,0,999,999) Return 0 End Function Method DrawOne%(offX%,offY%,sX%,sY%,sX2%,sY2%) If Visible=False Then Return 0 SetFarbe Typ offX=offX+X offY=offY+Y If offX>sX Then sX=offX If offY>sY Then sY=offY If offX+B<sX2 Then sX2=offX+B If offY+H<sY2 Then sY2=offY+H If (sX2<sX) Or (sY2<sY) Then Return 0 SetScissor sX*XRatio , sY*YRatio , (sX2-sX)*XRatio , (sY2-sY)*YRatio ' hier das eigentliche Malen: SetFarbe 100+Typ*10 DrawRect offX, offY,B,H SetFarbe 101+Typ*10 + Sgn(Check()=Id) DrawRect offX+2, offY+2,B-4,H-4 SetFarbe 103+Typ*10 If Typ=TEXT_FIELD Local T$=Text If Blinkt=ON And Focus=Id Then T=T+"|" Else T=T+" " Endif DrawGadgetText T, offX+10, offY+H/4,0 Else DrawGadgetText Text, offX+B/2, offY+H/4,1 Endif ' For Local loc:Gadget = Eachin Liste If loc.Parent=Self loc.DrawOne (offX, offY, sX, sY , sX2, sY2) Endif Next Return 0 End Method DrawGadgetText:Void(T$,X%,Y%,Style%) Font.DrawText T, X, Y,Style End Function Check%() MausAction If BlinkTimer<Millisecs() BlinkTimer=Millisecs()+500 Blinkt=1-Blinkt Endif If MausHit>OFF Focus=Gadget(1).CheckOne (0,0,0,0,999,999) If MausHit=MAUS_HIT And KeyboardShown=OFF And Gadget(Focus).Typ= TEXT_FIELD Then KeyboardShown=ON EnableKeyboard() Endif Endif If KeyboardShown=ON If Gadget(Focus).Typ= TEXT_FIELD Gadget(Focus).GetInput() Endif Endif If MausHit=MAUS_HIT Debug="Mausklick auf="+ Focus Return Focus Else Return 0 Endif End Method SetFocus:Void() Focus=Id If KeyboardShown=OFF And Gadget(Focus).Typ= TEXT_FIELD Then KeyboardShown=ON EnableKeyboard() Endif End Method Method GetInput:Void() Local ActChar%=GetChar() Select ActChar Case 0 Case 8 Text=Text[..-1] Case 13 KeyboardShown=OFF DisableKeyboard() Focus=0 Default Text=Text+String.FromChar(ActChar) End Select End Method CheckOne%(offX%,offY%,sX%,sY%,sX2%,sY2%) Local In%,LastIn%=0 If Visible=False Then Return 0 offX=offX+X offY=offY+Y If offX>sX Then sX=offX If offY>sY Then sY=offY If offX+B<sX2 Then sX2=offX+B If offY+H<sY2 Then sY2=offY+H If (sX2<sX) Or (sY2<sY) Then Return 0 If MausX>sX And MausX<sX2 If MausY>sY And MausY<sY2 LastIn=Id For Local loc:Gadget = Eachin Liste.Backwards() If loc.Parent=Self In=loc.CheckOne (offX, offY, sX, sY , sX2, sY2) Endif If Enable=True If In<>0 Then Return In Endif Next If Enable=False Then Return -1 Scroll Endif Endif Return LastIn End Method Scroll:Void() If MausHit=MAUS_DOWN If AllowScroll =OFF If Parent<>Null Parent.Scroll Endif Else If AllowScroll & VERTICAL Y =Y+MausY-StartMausY StartMausY=MausY If AllowScroll & BORDER If AllowScroll & OUT_BORDER If Y>0 Then Y=0 If Y+H<Parent.H Then Y=Parent.H-H Else If Y<0 Then Y=0 If Y+H>Parent.H Then Y=Parent.H-H Endif Endif Endif If AllowScroll & HORIZONTAL X =X+MausX-StartMausX StartMausX=MausX If AllowScroll & BORDER If AllowScroll & OUT_BORDER If X>0 Then X=0 If X+B<Parent.B Then X=Parent.B-B Else If X<0 Then X=0 If X+B>Parent.B Then X=Parent.B-B Endif Endif Endif Endif Endif End End Function SetFarbe:Void(FarbTon%) Select FarbTon Case 0 SetColor 0,0,0 Case 1 SetColor 255,255,255 Case 100 SetColor 222,222,222 Case 101 SetColor 90,90,90 Case 102 SetColor 90,90,110 Case 103 SetColor 222,222,222 Case 110 SetColor 150,150,150 Case 111 SetColor 244,244,244 Case 112 SetColor 244,244,244 Case 113 SetColor 55,55,55 Case 120 SetColor 150,150,150 Case 121 SetColor 50,50,50 Case 122 SetColor 50,50,70 Case 123 SetColor 255,255,255 Case 130,131,132,133 SetColor 1,1,1 End Select End Function (You only need to add angelfont.monkey and its 3 standard files to the project, nothing else...)