It still isn't working for me...
I am getting this method requires a few more parameters than were
passed.
So far I got two methods in my Module WebServices
1) InitWebKitParameters
Paraameters Extends HTML as HTMLViewer, aHandle as Integer
#If TargetMacOS
declare function sel_registerName lib "usr/lib/libobjc_dylib" (name as
CString) as Integer
declare function HIWebViewGetWebView (aHandle)
reload = sel_registerName("reload:")
#EndIf
2) Reload
#If TargetMacOS
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 (Window1.webcore,reload)
#EndIf
On Tue, 2007-01-09 at 19:26 -1000, Thomas Cunningham wrote:
> My bad, sorry, I left out a few details for these to work.
>
> The second parameter in the calls like reload are integer properties. As in
> this call,
>
> objc_msgSend( webView, reload)
>
> So, in your module add, reload As Integer. Also, add another property,
> webView As Integer. After this, you need to have an initialization method in
> the module,
>
> Sub InitWebKitParamters(Extends html As HTMlViewer, aHandle As Integer)
> #if TargetMacOS then
> declare function sel_registerName lib "/usr/lib/libobjc.dylib" (name as
> CString) as Integer
> declare function HIWebViewGetWebView lib "WebKit" (hiview as Integer) as
> Integer
> // get the integer value of our control.
> webView = HIWebViewGetWebView( aHandle )
> // this automagically assigns the correct reload call to an integer.Wow!
> reload = sel_registerName( "reload:" )
> #endif
> End Sub
>
> In the Open() event of your HTMLViewer call this method like this,
>
> Me.InitWebKitParamters(Me.Handle)
>
> Now your instance of HTMLViewer knows about this reload command. If you add
> a pushbutton, add this to the Action() handler,
>
> HTMLViewer1.Reload()
>
> The other extended methods work the same way.
>
> --
> 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>
_______________________________________________
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>
