> There is also a need for a "reload" function.

In a module,

Sub Reload(Extends html As HTMLViewer)
  #if TargetMacOS then
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer, agentName as CFStringRef)
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer)
    
    objc_msgSend( webView, reload)
  #endif
End Sub

> I think it would be nice if RB's webkit had a GoBack and a GoForward
> function

Sub GoForward(Extends html As HTMlViewer)
  #if TargetMacOS then
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer, agentName as CFStringRef)
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer)
    
    objc_msgSend( webView, goForward)
  #endif
  
End Sub

Sub GoBack(Extends htmls As HTMLViewer)
  #if TargetMacOS then
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer, agentName as CFStringRef)
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer)
    
    objc_msgSend( webView, goBack)
  #endif
  
End Sub

Sub SmallerText(Extends html As HTMlViewer)
  #if TargetMacOS then
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer, agentName as CFStringRef)
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer)
    
    objc_msgSend( webView, makeTextSmaller)
  #endif
End Sub


Sub LargerText(Extends html As HTMlViewer)
  #if TargetMacOS then
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer, agentName as CFStringRef)
    declare sub objc_msgSend lib "/usr/lib/libobjc.dylib" (obj as Integer,
selector as Integer)
    
    objc_msgSend( webView, makeTextLarger)
  #endif

End Sub

Enjoy! :-)

--
Thomas C.


_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to