From: David Naseby <david.naseby@...>
Date: 2004-03-17T13:43:18+09:00
Subject: Re: Workable hyperlink on FXDialogBox screen

>-----Original Message-----
>From: colotechpro@yahoo.com [mailto:colotechpro@yahoo.com]
>
>I'm trying to put a workable hyperlink on my FXDialogBox screen, and
>I'm wondering if anyone else has done something like this without
>using something like MS Word.

This relies on IE - some other clever person might be able to expand the
platforms supported:

require 'fox'
require 'fox/colors'
include Fox

class TestLink < FXMainWindow
  def initialize( app )
    super( app, "Test Link", nil, nil, DECOR_ALL, 0, 0, 400, 300)
    
    link = FXButton.new( self, "http://www.ruby-lang.org/", nil, nil, 0, 
      FRAME_NONE )
    link.textColor = FXColor::Blue
    link.connect( SEL_COMMAND, method( :load_link ) )
  end
  
  def load_link( sender, selector, data )
    if PLATFORM =~ /mswin/
      require 'win32ole'
      ie = WIN32OLE.new('InternetExplorer.Application')
      ie.visible = TRUE
      ie.navigate( sender.to_s )
    end
  end
  
  def create; super; show( PLACEMENT_SCREEN ); end
end

FXApp.new("Link Example", "FXRuby") do |theApp|
  TestLink.new(theApp)
  theApp.create
  theApp.run
end

David Naseby
http://homepages.ihug.com.au/~naseby/