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

Geminias

Fri Jan 06, 2006 4:02 am


GUI implementation

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

need some help from you turing experts.

its not really as much as it seems and its well organized take a look:


import GUI

setscreen ("graphics:max,max,nobuttonbar")

var sizeOfArray : int := 1
var linesArray : array 1 .. sizeOfArray of string
var search, url : string  %Globals

%the view window---------------------------------------
var canvasID : int := GUI.CreateCanvas (10,0, maxx - 20, maxy - 100)
%end view window---------------------------------------

proc searchProc (search, url : string)

    var stream : int    := Net.OpenURLConnection (url)
    var lines  : string
    var y      : int    := 30
    var font1  : int    := Font.New ("serif:12")
    var Y      : string 
if stream