OpenEuphoria

Re: Newbie: Win32Lib: moveWindow-? (Plus new win32lib modify

• Posted by Derek Brown <Cyrusbrown at AOL.COM> Aug 16, 1999
• 576 views

--part1_6357756.24e8f656_boundary

  I swear I attached that file the first time.  I'll try it again this time.
If it's not attached, and you're interested in it, I can email you the source
of it.

Derek Brown

--part1_6357756.24e8f656_boundary
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline; filename="DEMO.EXW"

include win32lib.ew
without warning

sequence names
integer current, Button, x, y

names =3D {"0","Euphoria","Warning:","Subscript","Error","Imminent"}
current =3D 1
x =3D 110
y =3D 90

constant
  Win =3D create(Window,"Demonstration",0,200,200,300,300,0),
  ButtonAdd =3D create(PushButton,"Name",Win,30,200,40,30,0),
  ButtonU =3D create(PushButton,"Up",Win,180,190,50,30,0),
  ButtonD =3D create(PushButton,"Down",Win,180,220,50,30,0),
  ButtonL =3D create(PushButton,"Left",Win,130,205,50,30,0),
  ButtonR =3D create(PushButton,"Right",Win,230,205,50,30,0)

  Button =3D create(PushButton,names[current],Win,x,y,100,30,0)

procedure Name()
  current +=3D 1
  Button =3D modify(Button,{PushButton,names[current],Win,x,y,100,30,0})
  repaintWindow(Win)
end procedure

procedure Up()
  y -=3D 20
  Button =3D modify(Button,{PushButton,names[current],Win,x,y,100,30,0})
  repaintWindow(Win)
end procedure

procedure Down()
  y +=3D 20
  Button =3D modify(Button,{PushButton,names[current],Win,x,y,100,30,0})
  repaintWindow(Win)
end procedure

procedure Left()
  x -=3D 20
  Button =3D modify(Button,{PushButton,names[current],Win,x,y,100,30,0})
  repaintWindow(Win)
end procedure

procedure Right()
  x +=3D 20
  Button =3D modify(Button,{PushButton,names[current],Win,x,y,120,30,0})
  repaintWindow(Win)
end procedure

onClick[ButtonU] =3D routine_id("Up")
onClick[ButtonD] =3D routine_id("Down")
onClick[ButtonL] =3D routine_id("Left")
onClick[ButtonR] =3D routine_id("Right")
onClick[ButtonAdd] =3D routine_id("Name")

WinMain(Win)
--part1_6357756.24e8f656_boundary--