Hi Klaus,
yes, I haven't posted many data.
well, into a card I've a button who open the card, named cdWeb, where the code of the browser is:
Code: Select all
on mouseUp
answer "Permettere all'applicazione di connettersi ad internet? " with "No" or "Si"
if it is "No" then
exit to top
end if
go to card "cdWeb"
end mouseUp
below the whole script of the card cdWeb. is a bit long but, anyway:
Code: Select all
-- We use this variable to store the id of the UIWebView native
-- control.
local sBrowserId
on preOpenCard
if the environment is not "mobile" then
exit preOpenCard
end if
-- Create our browser control and store the id
mobileControlCreate "browser"
put the result into sBrowserId
-- Native controls start off invisible
mobileControlSet sBrowserId, "visible", "true"
-- Set up a suitable initial url
--mobileControlSet sBrowserId, "url", "http://www.kickstarter.com/projects/1755283828/open-source-edition-of-livecode"
mobileControlSet sBrowserId, "url", "https://www.google.it/search?q=ricette+pizza"
--mobileControlSet sBrowserId, "url", "https://www.google.it"
-- Make sure everything is the right size
resizeStack
end preOpenCard
on closeCard
if the environment is not "mobile" then
exit closeCard
end if
-- Destroy the control, if we fail to do this native UIViews
-- will just accumulate
mobileControlDelete sBrowserId
end closeCard
on resizeStack
if the environment is not "mobile" then
exit resizeStack
end if
-- Adjust the size of the URL entry field
set the rect of field "URL" to the left of field "URL", the top of field "URL", the width of this card - 4, the bottom of field "URL"
-- Adjust the size of the browser view
set the rect of group "Browser" to the left of group "Browser", the top of group "Browser", the width of this card - 4, the height of this card - 40
-- Adjust the status field
set the rect of field "Status" to 4, the bottom of group "Browser" + 4, the width of this card - 4, the height of this card - 4
-- Now adjust the control itself
mobileControlSet sBrowserId, "rect", the rect of group "Browser"
end resizeStack
--------
-- This message is received after a request has been allowed and
-- loading is starting
on browserStartedLoading pUrl
put "Started loading:" && pUrl into field "Status"
end browserStartedLoading
-- This message is received when a page has been completely
-- loaded and is displayed to the user
on browserFinishedLoading pUrl
put "Finished loading:" && pUrl into field "Status"
put pUrl into field "Url"
end browserFinishedLoading
-- This message is received when a new url is requested. Passing it
-- causes the load to go ahead, otherwise it does not.
on browserLoadRequest pUrl, pReason
answer "Do you want to load:" && pUrl with "Yes" and "No"
if it is "Yes" then
pass browserLoadRequest
else
put "Refused:" && pUrl into field "Status"
end if
end browserLoadRequest
--------
-- This handler is invoked by our Back/Forward/Stop/Refresh buttons
-- we just pass the request onto the control.
command doAction pAction
if the environment is not "mobile" then
exit doAction
end if
mobileControlDo sBrowserId, pAction
end doAction
-- This handler is invoked when the url field is closed after editing.
-- It causes a new url to be requested
command goUrl pUrl
if the environment is not "mobile" then
exit goUrl
end if
mobileControlSet sBrowserId, "url", pUrl
end goUrl
I haven't change it, except for the script of the button Stop (in the lesson code the little "X" button on the top) adding a go to the previous card:
Code: Select all
on mouseUp
doAction "stop"
go to card "crdAbbinamenti"
end mouseUp
ciao
franco