-----------------------------------

Homer_simpson

Sun Apr 13, 2003 3:16 pm


Custom Created GUI(added text field)

-----------------------------------

Here's the first CCG(custom created GUI) i made. Some people(me=Þ) find GUI a little hard to use so i made these to make it a little easier.  8) 

var bfont : int := Font.New ("System:12")
var menu1 := 0
View.Set ("offscreenonly")

function mouseover (x1, y1, x2, y2 : int) : boolean
    var mousex, mousey, mouseb : int
    mousewhere (mousex, mousey, mouseb)
    if mousex >= x1 and mousex = y1 and mousey