LiveCode Forums.

Code: Select all

put empty into gUrl
   put the selectedText of fld "fldPiattiAbbinati" into tRicettaDaCercare
   replace " " with "+" in tRicettaDaCercare                                                                          --sostituisce lo spazio tra le parole con il car. +
   put "http://www.google.it/search?q=ricette+"& tRicettaDaCercare into gUrl
   
   go to card "cdWeb"

Code: Select all

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", gUrl
   
   -- Make sure everything is the right size
   resizeStack
end preOpenCard

Code: Select all

global gUrl                                        -- contiene l' url completo x la ricerca nel web da passare alla card cdWeb

on mouseUp
   if the hilitedline of fld "fldPiattiAbbinati" is empty then
      answer "Attenzione! Selezionare una ricetta dall'elenco dei " & fld lblTitoloPiatti
      exit to top
   end if
   
   answer "Permettere all'applicazione di connettersi ad internet? " with "No" or "Si"
   if it is "No" then
      exit to top
   end if
   

   put the selectedText of fld "fldPiattiAbbinati" into tRicettaDaCercare
   replace " " with "+" in tRicettaDaCercare                                                                          --sostituisce lo spazio tra le parole con il car. +
   replace "^" with "'" in tRicettaDaCercare                                                                          --sostituisce l'eventuale car. ^ con l'apostrofo classico '
   put "http://www.google.it/search?q=ricette+"& tRicettaDaCercare into gUrl
   
   go to card "cdWeb"
end mouseUp

Code: Select all

-- We use this variable to store the id of the UIWebView native
-- control.
global gUrl                                        -- contiene l' url completo x la ricerca nel web creato nello script del tasto btnWebRicetta
local sBrowserId

on preOpenCard
   answer gUrl
   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", gUrl
   
   -- 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 "Sto  caricando:  " && 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 "Caricato:  " && 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 "Vuoi  caricare:" && pUrl with "Yes" and "No"
   if it is "Yes" then
      pass browserLoadRequest
   else
      put "Rifiutato:  " && 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