LiveCode Forums.

Code: Select all

on mouseUp
      go to card "card2"
end mouseUp

Code: Select all

on closeCard
answer "current card closed"
end closeCard

Code: Select all

  -- Destroy the control, if we fail to do this native UIViews
   -- will just accumulate
   mobileControlDelete sBrowserId

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

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

Code: Select all

on mouseUp
   doAction "stop"
   go to card "crdAbbinamenti"
end mouseUp