The app is just one stack with an image thing and two buttons
here is the stack code
Code: Select all
global myBrowser
on browserOpen
if myBrowser is empty then
put revBrowserOpen(the windowid of this stack,"") into myBrowser
end if
revBrowserSet myBrowser, "showborder","true"
revBrowserSet myBrowser, "visible","true"
revBrowserSet myBrowser, "rect",rect of image "bwin"
end browserOpen
on browserClose
revBrowserClose myBrowser
put empty into myBrowser
end browserClose
on browserSetURL pURL
## Set the url to be displayed to the given url
revBrowserSet myBrowser, "url", pURL
end browserSetURL
Code: Select all
global myBrowser
on mouseUp
browserOpen
revBrowserSet myBrowser , "url", " google (.) com"
end mouseUp
Code: Select all
global myBrowser
on mouseUp
browserOpen
local tFile
answer file "Please choose the file you would like to display" with type "PDF document|pdf|PDF"
if it is not empty then
put it into tFile
--revBrowserSet myBrowser , "url", tFile
browserSetURL tFile
end if
end mouseUp