fxruby 1.2.2

data/tests/stress1.rb

@@ -0,0 +1,94 @@
+#
+# An FXRuby stress test developed by Gilles Filippini
+#
+
+require "fox"
+
+include Fox
+
+# Test case tuning
+NUMBER_OF_ITEMS = 1000
+RESTART_FREQUENCY = 20
+
+# =======================================================================
+# Tree
+# =======================================================================
+class DirTree < FXTreeList
+  def initialize(parent, nvis, tgt = nil, sel = 0, opts = 0, x = 0, y = 0, w = 0, h = 0)
+    super
+  end
+
+  def create
+    super
+    item = addItemLast(nil, "root")
+    @currentItem = item
+    expand
+  end
+
+  def expand
+    expandTree(@currentItem, true)
+    listSubDir(@currentItem)
+  end
+
+  # Updating entries of dir
+  def listSubDir(parentItem)
+    entries = (1..NUMBER_OF_ITEMS).collect { |i| i.to_s }
+    entries.each do |entry|
+      item = addItemLast(parentItem, entry)
+      @currentItem = item if entry == "1"
+    end
+  end
+end
+
+# =======================================================================
+# Application
+# =======================================================================
+class Application < FXApp
+  include Responder
+
+  ID_TIMER, ID_LAST = enum(FXApp::ID_LAST, 2)
+
+  def initialize
+    super("FXTreeList Bug (the come back)", "Pini")
+
+    FXMAPFUNC(SEL_TIMEOUT, ID_TIMER, "onCount")
+
+    self.threadsEnabled = false
+    init(ARGV)
+
+    @mainWindow = FXMainWindow.new(self, appName, nil, nil, DECOR_ALL, 0, 0, 400, 600)
+    @dirTree = DirTree.new(@mainWindow, 0, nil, 0,
+      (TREELIST_SHOWS_LINES|TREELIST_SHOWS_BOXES|TREELIST_ROOT_BOXES|
+       LAYOUT_FILL_X|LAYOUT_FILL_Y))
+
+    @count = 0
+  end 
+
+  def create
+    super
+    @mainWindow.show(PLACEMENT_SCREEN)
+    addTimeout(100, self, ID_TIMER)
+  end
+
+  def onCount(sender, sel, ptr)
+    @count += 1
+    puts "count = #{@count}"
+    if @count % RESTART_FREQUENCY == 0
+      @dirTree.clearItems
+      @dirTree.create
+    end
+    @dirTree.expand
+    addTimeout(100, self, ID_TIMER)
+  end
+end
+
+if __FILE__ == $0
+# Make application
+  application = Application.new
+  
+  # Create app  
+  application.create()
+  
+  # Run
+  application.run()
+end

data/tests/stress2.rb

@@ -0,0 +1,51 @@
+require 'test/unit'
+require 'thread'
+require 'fox12'
+
+include Fox
+
+class TC_stress2 < Test::Unit::TestCase
+  def set_up_main_window(theApp)
+    theMainWindow = FXMainWindow.new(theApp, "TC_stress2", nil, nil, DECOR_ALL, 0, 0, 200, 100)
+    @countLabel = FXLabel.new(theMainWindow, "0", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    theMainWindow
+  end
+  
+  def on_timeout(sender, sel, ptr)
+    safeToQuit = false
+    $lock.synchronize {
+      if $count > 1000000
+        # if it were going to crash, it probably would have done
+	# so by now, so it's safe to quit.
+	safeToQuit = true
+      end
+      @countLabel.setText($count.to_s)
+    }
+    if safeToQuit
+      @theApp.handle(@theMainWindow, MKUINT(FXApp::ID_QUIT, SEL_COMMAND), nil)
+    else
+      @theApp.addTimeout(100, method(:on_timeout))
+    end
+  end
+  
+  def test_run
+    # Set up the counter thread
+    $count = 0
+    $lock = Mutex.new
+    w = Thread.new do
+      loop do
+        $lock.synchronize { $count += 1 }
+        sleep 0
+      end
+    end
+
+    # Start the app
+    @theApp = FXApp.new("TC_stress2", "FXRuby")
+    @theMainWindow = set_up_main_window(@theApp)
+    @theApp.create
+    @theMainWindow.show(PLACEMENT_SCREEN)
+    @theApp.addTimeout(100, method(:on_timeout))
+    @theApp.run
+  end
+end
+ 

data/tests/stress3.rb

@@ -0,0 +1,117 @@
+#!/usr/bin/env ruby
+
+require 'fox12'
+require 'test/unit'
+
+include Fox
+
+class ShutterItem < FXShutterItem
+  def initialize(p, text, icon=nil, opts=0)
+    super(p, text, icon, opts|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT, 0, 0, 0, 0, 10, 10, 10, 10, 10, 10)
+    button.padTop = 2
+    button.padBottom = 2
+  end
+end
+
+class ShutterButton < FXButton
+  def initialize(p, txt, ic=nil)
+    super(p, txt, ic, nil, 0, BUTTON_TOOLBAR|TEXT_BELOW_ICON|FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT)
+    self.backColor = p.backColor
+    self.textColor = FXRGB(255, 255, 255)
+  end
+end
+
+class ShutterWindow < FXMainWindow
+
+  attr_accessor :shutter
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "Look Out!", nil, nil, DECOR_ALL, 0, 0, 600, 600)
+
+    # Main contents area is split left-to-right
+    splitter = FXSplitter.new(self, (LAYOUT_SIDE_TOP|LAYOUT_FILL_X|
+      LAYOUT_FILL_Y|SPLITTER_TRACKING))
+
+    # Shutter area on the left
+    @shutter = FXShutter.new(splitter, nil, 0,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
+    
+    shutterItem = ShutterItem.new(@shutter, "Shutter Item 1", nil, LAYOUT_FILL_Y)
+    ShutterButton.new(shutterItem.content, "1-1")
+    ShutterButton.new(shutterItem.content, "1-2")
+    ShutterButton.new(shutterItem.content, "1-3")
+    ShutterButton.new(shutterItem.content, "1-4")
+    ShutterButton.new(shutterItem.content, "1-5")
+    ShutterButton.new(shutterItem.content, "1-6")
+    ShutterButton.new(shutterItem.content, "1-7")
+  
+    shutterItem = ShutterItem.new(@shutter, "Shutter Item 2")
+    ShutterButton.new(shutterItem.content, "2-1")
+    ShutterButton.new(shutterItem.content, "2-2")
+    ShutterButton.new(shutterItem.content, "2-3")
+    ShutterButton.new(shutterItem.content, "2-4")
+    ShutterButton.new(shutterItem.content, "2-5")
+  
+    shutterItem = ShutterItem.new(@shutter, "Shutter Item 3")
+    ShutterButton.new(shutterItem.content, "3-1")
+    ShutterButton.new(shutterItem.content, "3-2")
+    ShutterButton.new(shutterItem.content, "3-3")
+      
+    # Right pane is a switcher
+    # For a real application, each panel in the switcher would have real, working contents...
+    @switcher = FXSwitcher.new(splitter,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0, 0, 0, 0)
+
+    FXLabel.new(@switcher,
+      "Lookout Today!", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  end
+
+  def create
+    # Create base class
+    super
+    
+    # Run the garbage collector now
+    GC.start
+    
+    # Safe to drop out any time now...
+    getApp().addChore(getApp(), FXApp::ID_QUIT)
+  end
+end
+
+class TC_stress3 < Test::Unit::TestCase
+  def test_main
+    # Run the program
+    theApp = FXApp.new("Shutter", "FoxTest")
+    shutterWindow = ShutterWindow.new(theApp)
+    theApp.create
+    theApp.run
+    
+    #
+    # Check to see if anyone's missing in action.
+    # First, the shutter itself should have three
+    # shutter items as its children.
+    #
+    assert_equal(3, shutterWindow.shutter.numChildren)
+    
+    # Each shutter item has two children
+    shutterWindow.shutter.each_child { |c|
+      assert_equal(2, c.numChildren)
+    }
+    
+    # First item's content should have 7 children
+    shutterItem1 = shutterWindow.shutter.first
+    assert_equal(7, shutterItem1.content.numChildren)
+    
+    # Second item's content should have 5 children
+    shutterItem2 = shutterItem1.next 
+    assert_equal(5, shutterItem2.content.numChildren)
+
+    # Third item's content should have 3 children
+    shutterItem3 = shutterItem2.next 
+    assert_equal(3, shutterItem3.content.numChildren)
+  end
+end
+
+

data/tests/testcase.rb

@@ -0,0 +1,38 @@
+require 'test/unit'
+require 'fox12'
+
+module Fox
+  class TestCase < Test::Unit::TestCase
+    #
+    # Construct an application and main window for this test case's
+    # use, based on the supplied application name.
+    #
+    def setup(*args)
+      unless args.empty?
+        appName = args[0]
+	if FXApp.instance.nil?
+	  @theApp = FXApp.new(appName, 'FXRuby')
+	  @theApp.init([])
+	  FXMainWindow.new(@theApp, appName)
+	else
+	  @theApp = FXApp.instance
+	end
+      end
+      @theMainWindow = FXMainWindow.new(@theApp, appName)
+    end
+    
+    # Return a reference to the application
+    def app
+      @theApp
+    end
+    
+    # Return a reference to the main window
+    def mainWindow
+      @theMainWindow
+    end
+    
+    # Override the base class version of default_test() so that
+    # a test case with no tests doesn't trigger an error.
+    def default_test; end
+  end
+end

data/web/downloads.html

@@ -0,0 +1,91 @@
+<html>
+<head>
+<link rel="stylesheet" href="page.css" type="text/css">
+<title>Downloads</title>
+</head>
+<body bgcolor=#ffffff link=#990033 vlink=#990033 alink=#990033 text=#000000>
+
+
+<!--- TOPIC TITLE -->
+<p>
+<table width=100% cellpadding=0 cellspacing=2><tr><td width=100% valign=bottom id="HEADLINE"><b>
+Downloads
+<br><img src='art/line.gif' width='100%' height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE -->
+<blockquote>
+The latest version of FXRuby is always available
+from the <a href="http://rubyforge.org/projects/fxruby" target=_top>RubyForge
+project page</a>. The RubyForge releases should always have accompanying
+release notes describing the changes for that release. A cumulative
+<tt>ChangeLog</tt> file is also included in the FXRuby source code distribution.
+
+As of the FOX 1.0 release, any FXRuby version 1.0.x release should be compatible with any FOX 1.0.x release. Similarly, any FXRuby 1.2.x release should be compatible with any FOX 1.2.x release.<p>
+</blockquote>
+
+<!--- TOPIC TITLE -->
+<p>
+<table width=100% cellpadding=0 cellspacing=2><tr><td width=100% valign=bottom id="HEADLINE"><b>
+Source Code
+<br><img src='art/line.gif' width='100%' height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE -->
+<blockquote>
+The FXRuby source code is distributed as a gzipped tar archive, and is available for
+download from the <a href="http://rubyforge.org/projects/fxruby" target=_top>RubyForge
+project page</a>.
+</blockquote>
+
+<!--- TOPIC TITLE -->
+<p>
+<table width=100% cellpadding=0 cellspacing=2><tr><td width=100% valign=bottom id="HEADLINE"><b>
+Binaries for Unix/Linux
+<br><img src='art/line.gif' width='100%' height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE -->
+<blockquote>
+Precompiled binaries for FOX, FXScintilla and FXRuby are available for various Unix/Linux platforms,
+but not in any centralized way.<p>
+Both the <a href="http://www.fox-toolkit.net">FOX
+Community Wiki site</a> and the <a href="http://www.fox-toolkit.com">main FOX web site</a>
+list a number of independent sources for package downloads for various Linux distributions, but
+many of these are for older FOX releases. You may have better luck using a RPM search engine like
+<a href="http://rpmfind.net">rpmfind.net</a> to find the most recent packages for your distribution.
+</blockquote>
+
+<!--- TOPIC TITLE -->
+<p>
+<table width=100% cellpadding=0 cellspacing=2><tr><td width=100% valign=bottom id="HEADLINE"><b>
+Binaries for Microsoft Windows
+<br><img src='art/line.gif' width='100%' height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE -->
+<blockquote>
+Windows installers for FXRuby are available for download from
+the <a href="http://rubyforge.org/projects/fxruby" target=_top>RubyForge
+project page</a>.
+<b>The FOX and FXScintilla libraries are built into the Windows installers for FXRuby, and
+you should not need to download and install those packages separately.</b>
+These binaries are also compatible with the standard Ruby
+installers for Windows that are available for download from
+<a href="http://rubyforge.org/projects/rubyinstaller" target=_top>RubyForge</a>.<p>
+Note that the precompiled binaries for Windows are built with OpenGL support, and
+thus depend on the OpenGL runtime libraries (<tt>opengl32.dll</tt> and
+<tt>glu32.dll</tt>). These libraries were <i>not</i> included with Windows 95
+(earlier than OSR2), so if you're using Ruby and FXRuby on a Windows 95 machine,
+you may need to download the <a href="http://download.microsoft.com/download/win95upg/info/1/W95/EN-US/Opengl95.exe">OpenGL runtime libraries</a>.
+You must have these libraries installed even if you don't plan to do anything
+OpenGL-related with FXRuby.
+</blockquote>
+
+<!--- COPYRIGHT -->
+<p>
+<table width=100% cellpadding=0 cellspacing=0><tr><td width=100% valign=top id=HEADLINE align=right>
+<img src='art/line.gif' width=100% height=1><font size=-1>
+Copyright &copy; 2001-2004 Lyle Johnson</font>
+</td></tr></table>
+</p>
+<!--- COPYRIGHT -->
+
+</body>
+</html>

data/web/home.html

@@ -0,0 +1,109 @@
+<html>
+<head>
+<link rel="stylesheet" href="page.css" type="text/css">
+<title>Home</title>
+</head>
+<body bgcolor=#ffffff link=#990033 vlink=#990033 alink=#990033 text=#000000>
+
+
+<!---- TOPIC TITLE WITH LOGO--->
+<table border=0 cellpadding= cellspacing=2 width=100% ><tr><td><a href='http://www.fxruby.org' target=_top><img src='art/fxrubylogo_small.png' border=0></a></td><td width=100% valign=bottom id="HEADLINE"><b>
+Welcome to FXRuby 
+<br><img src='art/line.gif' width=100% height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE WITH LOGO --->
+<blockquote>
+FXRuby is a <a href="http://www.ruby-lang.org" target=_top>Ruby</a> extension
+module that provides an interface to the <a href="http://www.fox-toolkit.com" target=_top>FOX</a>
+GUI library. It is Copyright 2001-2004 by <a href="mailto:lyle@rubyforge.org">Lyle
+Johnson</a> and released under the <a href="http://www.gnu.org/copyleft/lesser.html" target=_top>GNU
+Lesser General Public License</a>
+</blockquote>
+
+
+
+<!--- TOPIC TITLE -->
+<p>
+<table width=100% cellpadding=0 cellspacing=2><tr><td width=100% valign=bottom id="HEADLINE"><b>
+Versions
+<br><img src='art/line.gif' width='100%' height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE -->
+<blockquote>
+As of the FOX 1.0 release, any FXRuby version 1.0.x release should be compatible with any FOX 1.0.x release. Similarly, any FXRuby version 1.2.x release should be compatible with any FOX 1.2.x release.<p>
+</blockquote>
+
+
+<!--- TOPIC TITLE -->
+<p>
+<table width=100% cellpadding=0 cellspacing=2><tr><td width=100% valign=bottom id="HEADLINE"><b>
+Mailing Lists
+<br><img src='art/line.gif' width='100%' height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE -->
+<ul>
+<b>Announcements</b><p>
+<ul>
+The announcements list is a low-traffic list on which new releases of FXRuby, as well as software based on FXRuby, will
+be announced. Discussions on various topics however should preferably take place in the users list, to prevent
+swamping people's mailboxes.
+To subscribe, fill out the web-based
+<a href="http://rubyforge.org/mailman/listinfo/fxruby-announce" target=_top>subscription form</a>.
+</ul><p>
+<b>General Discussion</b><p>
+<ul>
+The users list is intended for discussion on various FOX and FXRuby topics between developers and/or users
+of FXRuby and applications based on it. If you have questions, feel free to post your questions here, as many people
+are only too happy to answer them.
+To subscribe, fill out the web-based
+<a href="http://rubyforge.org/mailman/listinfo/fxruby-users" target=_top>subscription form</a>.
+</ul>
+</ul>
+
+<!--- TOPIC TITLE -->
+<p>
+<table width=100% cellpadding=0 cellspacing=2><tr><td width=100% valign=bottom id="HEADLINE"><b>
+Screenshots
+<br><img src='art/line.gif' width='100%' height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE -->
+<blockquote>
+If you need to whet your appetite with a few screenshots before committing
+to an actual download, I understand completely. <a href="../doc/examples.html">This
+page</a> from the <a href="../doc/book.html">FXRuby User's Guide</a> displays
+screenshots from some representative FOX and FXRuby programs. The <a href="http://www.fox-toolkit.com" target=_top>FOX
+home page</a> also devotes a section to FOX-based Projects and Screen Shots,
+which you may also want to check out.
+</blockquote>
+
+
+<!--- TOPIC TITLE -->
+<p>
+<table width=100% cellpadding=0 cellspacing=2><tr><td width=100% valign=bottom id="HEADLINE"><b>
+Projects Using FXRuby
+<br><img src='art/line.gif' width='100%' height=1></b></td></tr></table>
+</p>
+<!--- TOPIC TITLE -->
+<blockquote>
+Projects using FXRuby include:
+<ul>
+  <li><a href="http://www.insula.cz/dbtalk" target=_top>DbTalk</a> is an interactive GUI-based tool for database querying, programming, administration, etc. It is developed by Dalibor Sramek.</li>
+  <li><a href="http://freeride.rubyforge.org/wiki/wiki.pl" target=_top>FreeRIDE</a> is an IDE for the Ruby programming language.</li>
+  <li><a href="http://www.fisica.uniud.it/~glast/FRED" target=_top>FRED</a> is a high energy physics event display built out of Ruby and FOX by Riccardo Giannitrapani and Marco Frailis.</li>
+</ul>
+If your project uses FXRuby for its user interface, and you'd like to see it listed
+here, please send me an e-mail with the information.
+</blockquote>
+
+
+<!--- COPYRIGHT -->
+<p>
+<table width=100% cellpadding=0 cellspacing=0><tr><td width=100% valign=top id=HEADLINE align=right>
+<img src='art/line.gif' width=100% height=1><font size=-1>
+Copyright &copy; 2001-2004 Lyle Johnson</font>
+</td></tr></table>
+</p>
+<!--- COPYRIGHT -->
+
+</body>
+</html>