WebBrowser <= initialize symbol (Apollo-talk:45) - Apollo

Hi! "repeater" <repea****@lucen*****>.  This is take_tk

[Apollo-talk:43] initialize symbol
"repeater" <repea****@lucen*****> wrote:
: further, here follows a few possible bugs encountered recently
: 	1. the webbrowser sample not operational (introduced during 632->635)
: 	2. it seems "stop" is not implemented in webbrowser (i would add it myself,
: but my delphi6 version has no twebbrowser component)

  Compiled WebBrowser.so attached.  Is this OK?

--
C:/Program Files/Apollo/src/ext/webbrowser/webbrowser.dpr
--
function WebBrowser_set_on_before_navigate(This, v: Tvalue): Tvalue; cdecl;
var
  real: TWebBrowser;
begin
  result := WebBrowser_set_method(This, v);
  real := ap_data_get_struct(This);
  if****@real***** = nil then
      real.OnBeforeNavigate2 := Handle.doBeforeNavigate2;
end;

function WebBrowser_set_on_navigate_complete(This, v: Tvalue): Tvalue; cdecl;
var
  real: TWebBrowser;
begin
  result := WebBrowser_set_method(This, v);
  real := ap_data_get_struct(This);
  if****@real***** = nil then
      real.OnNavigateComplete2 := Handle.doNavigateComplete2;
end;

function WebBrowser_stop(This: Tvalue): Tvalue; cdecl;
var
  real: TWebBrowser;
begin
  result := This;
  real := ap_data_get_struct(This);
  real.stop;
end;

  DefineAttrSet(cWebBrowser, 'on_before_navigate', WebBrowser_set_on_before_navigate);
  rb_define_method(cWebBrowser, 'on_before_navigate', @retval, -1);
  DefineAttrSet(cWebBrowser, 'on_navigate_complete', WebBrowser_set_on_navigate_complete);
  rb_define_method(cWebBrowser, 'on_navigate_complete', @retval, -1);

  rb_define_method(cWebBrowser, 'stop', @WebBrowser_stop, 0);

take_tk = kumagai hidetake
-------------- next part --------------
A non-text attachment was scrubbed...
Name: webbrowser.so
Type: application/octet-stream
Size: 21504 bytes
Desc: not available
Url : http://lists.sourceforge.jp/mailman/archives/apollo-talk/attachments/20021106/eb8fcb30/attachment.so 

Apollo

[Apollo-talk:45] WebBrowser <= initialize symbol