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 <= 0 then  %error check.
  GUI.FontDraw (canvasID, "Unable to establish connection", 0, y, font1, black)
  return  %End Procedure (allow user to enter new url)
end if
loop
  exit when eof
  get : stream, lines
  GUI.FontDraw (canvasID, lines+"Y="+Y, 0, y, font1, black)
  y -= 1
  Y := (string) y
  linesArray (sizeOfArray++) := lines
end loop
Net.CloseConnection (stream)
 
end searchProc
GUI.SetBackgroundColor (gray)


%textfields-----------------------------------------
    var searchField_ID, urlField_ID : int

proc searchFieldProc (text : string)
   GUI.SetSelection (urlField_ID, 0, 0)
   GUI.SetActive    (urlField_ID)
end searchFieldProc

proc urlFieldProc (text : string)

 %should automatically press search if user hits enter whilst in this text field.

end urlFieldProc


searchField_ID := GUI.CreateTextFieldFull (200, 873, 690,
                  "Enter the word or phrase to be sought", searchFieldProc,
                  GUI.INDENT, 0, 0)
urlField_ID    := GUI.CreateTextFieldFull (200, 853, 690,
                  "Enter the url here", urlFieldProc, GUI.INDENT, 0, 0)
var search_label   := GUI.CreateLabelFull (195, 873, "Find", 0, 0, GUI.RIGHT, 0)
var url_label      := GUI.CreateLabelFull (195, 853, "URL", 0, 0, GUI.RIGHT, 0)
%end textfields---------------------------------------                     
%buttons----------------------------------------------
proc searchButtonProc
   search := GUI.GetText (searchField_ID)
   url    := GUI.GetText (urlField_ID)
   searchProc (search, url)
end searchButtonProc


   var search_button : int := GUI.CreateButton (900, 850, 0, "Search", searchButtonProc)
%end buttons-------------------------------------------
       
        var scrollBar : int
       
        procedure ScrollBarMoved (value : int)
               
        end ScrollBarMoved
       
        scrollBar := GUI.CreateVerticalScrollBar (10, 0, 814,
            50, 150, 50, ScrollBarMoved)
     
loop  %message loop
   exit when GUI.ProcessEvent
end loop