OpenEuphoria

puzzle

• Posted by gwalters at sc.rr.com Mar 15, 2002
• 555 views

Here's some code. The windows show up but there is no text nor buttons
showing up. Do you see the problem?

  for i = 1 to len(EUmenu) do
   id  =
create(Window,EUmenu[i][1],Main,223,50,sw-215,clientSize[4]-62,{WS_DLGFRAME,
WS_CAPTION ,WS_POPUP})
   subMenuId = append(subMenuId,id)
   setPosition(id, 50,50)
   wPuts(id,"text")
   if len(EUmenu[i])> 2 then
    col = 5
    row = 50
    lenRow = 100
    for j = 2 to len(EUmenu[i]) do
     id = create(Button,EUmenu[i][j][1],subMenuId[i],
       col,row,lenRow,20,{BS_TEXT,BS_LEFT})--,#8000})
     row += 20
    end for
   end if
   --tmp = gets(0)
  end for

george