I've worked on this a lot and here's a screenshot of an app being run on it.
It's a fully working calculator. To close the window simply press the x in the top right corner of the window. Now to add windows being dragged by the titlebar...
Heres the code for the calculator to show how simple it was to make (thanks to KawaGeo and ema for evaluate method)
Code: Select all
--Main proc where all messages are sent
function MainProc(wnd,msg,wparam,lparam)
   if wnd==hCalculator then 
      if msg==wm_lclick then
        if wparam==hCalculator_1 then
          CalculatorEquation=CalculatorEquation.."1"
        elseif wparam==hCalculator_2 then
          CalculatorEquation=CalculatorEquation.."2"
        elseif wparam==hCalculator_3 then
          CalculatorEquation=CalculatorEquation.."3"
        elseif wparam==hCalculator_4 then
          CalculatorEquation=CalculatorEquation.."4"
        elseif wparam==hCalculator_5 then
          CalculatorEquation=CalculatorEquation.."5"
        elseif wparam==hCalculator_6 then
          CalculatorEquation=CalculatorEquation.."6"
        elseif wparam==hCalculator_7 then
          CalculatorEquation=CalculatorEquation.."7"
        elseif wparam==hCalculator_8 then
          CalculatorEquation=CalculatorEquation.."8"
        elseif wparam==hCalculator_9 then
          CalculatorEquation=CalculatorEquation.."9"
        elseif wparam==hCalculator_0 then
          CalculatorEquation=CalculatorEquation.."0"
        elseif wparam==hCalculator_equal then
          script = "return "..CalculatorEquation
          CalculatorEquation = assert(loadstring(script))() 
        elseif wparam==hCalculator_period then
          CalculatorEquation=CalculatorEquation.."."
        elseif wparam==hCalculator_plus then
          CalculatorEquation=CalculatorEquation.."+"
        elseif wparam==hCalculator_minus then
          CalculatorEquation=CalculatorEquation.."-"
        elseif wparam==hCalculator_mult then
          CalculatorEquation=CalculatorEquation.."*"
        elseif wparam==hCalculator_div then
          CalculatorEquation=CalculatorEquation.."/"
        elseif wparam==hCalculator_cls then
          CalculatorEquation="0"
        end
        SetWindowText(hCalculator_ans,CalculatorEquation)
      end
   end
end
--Control creation
hCalculator=CreateWindow(20,20,157,172,"Calculator")
hCalculator_1=CreateButton(10,100,30,30,"1",hCalculator)
hCalculator_2=CreateButton(45,100,30,30,"2",hCalculator)
hCalculator_3=CreateButton(80,100,30,30,"3",hCalculator)
hCalculator_4=CreateButton(10,65,30,30,"4",hCalculator)
hCalculator_5=CreateButton(45,65,30,30,"5",hCalculator)
hCalculator_6=CreateButton(80,65,30,30,"6",hCalculator)
hCalculator_7=CreateButton(10,30,30,30,"7",hCalculator)
hCalculator_8=CreateButton(45,30,30,30,"8",hCalculator)
hCalculator_9=CreateButton(80,30,30,30,"9",hCalculator)
hCalculator_0=CreateButton(10,135,30,30,"0",hCalculator)
hCalculator_equal=CreateButton(80,135,30,30,"=",hCalculator)
hCalculator_period=CreateButton(45,135,30,30,".",hCalculator)
hCalculator_plus=CreateButton(115,30,30,30,"+",hCalculator)
hCalculator_minus=CreateButton(115,65,30,30,"-",hCalculator)
hCalculator_mult=CreateButton(115,100,30,30,"*",hCalculator)
hCalculator_div=CreateButton(115,135,30,30,"/",hCalculator)
hCalculator_ans=CreateStatic(10,5,100,20,"0",hCalculator)
hCalculator_cls=CreateButton(115,5,30,20,"C",hCalculator)