fxruby 1.6.13-mswin32

data/tests/howdypage.ps

@@ -0,0 +1,181 @@
+%!PS-Adobe-3.0
+%%Title: Print Job
+%%Creator: FOX GUI Toolkit Application
+%%BoundingBox: 72 72 540 720
+%%Pages: (atend)
+%%DocumentFonts:
+%%EndComments
+%%BeginProlog
+
+
+% h w x y drawRect
+/drawRect {
+	newpath moveto dup 0 rlineto exch dup 0 exch
+	rlineto exch neg 0 rlineto neg 0 exch rlineto
+	closepath stroke
+} def
+% h w x y fillRect
+/fillRect {
+	newpath moveto dup 0 rlineto exch dup 0 exch
+	rlineto exch neg 0 rlineto neg 0 exch rlineto
+	closepath fill stroke
+} def
+% x y a b drawLine
+/drawLine {
+	newpath moveto lineto stroke
+} def
+% x y ..... npoints drawLines
+/drawLines {
+	3 1 roll newpath moveto {lineto} repeat stroke
+} def
+% x y a b ..... nsegments drawSegmt
+/drawSegmt {
+	newpath {
+		moveto lineto
+	} repeat stroke
+} def
+% x y drawPoint
+/drawPoint {
+	translate 1 1 scale 8 8 1 [ 8 0 0 8 0 0 ] {<0000>} image
+} def
+% centerx centery  startAngle endAngle radiusX radiusY drawArc
+/drawArc {
+	gsave dup 3 1 roll div dup 1 scale 6 -1 roll
+	exch div 5 1 roll  3 -2 roll arc stroke grestore
+} def
+% (string) x y height drawText
+/drawText {
+	gsave findfont exch scalefont setfont moveto
+	show grestore
+} def
+/bwproc
+ {  rgbproc
+    dup length 3 idiv string 0 3 0
+    5 -1 roll
+    { add 2 1 roll 1 sub dup 0 eq
+      { pop 3 idiv 3 -1 roll dup 4 -1 roll dup
+        3 1 roll 5 -1 roll put 1 add 3 0 }
+      { 2 1 roll } ifelse
+    } forall
+    pop pop pop
+} def
+systemdict /colorimage known not
+ { /colorimage
+     { pop pop /rgbproc exch def
+     { bwproc } image
+ } def
+} if
+% Color -  r g b C
+/C { setrgbcolor } bind def
+% Point -  x y r g b P
+/P { C newpath 0.5 0.0 360.0 arc closepath fill } bind def
+% Flat Shaded Line -  x2 y2 x1 y1 r g b L
+/L { C newpath moveto lineto stroke } bind def
+% Smooth-shaded line -  x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 SL
+/SL {
+ /b1 exch def
+ /g1 exch def
+ /r1 exch def
+ /y1 exch def
+ /x1 exch def
+ /b2 exch def
+ /g2 exch def
+ /r2 exch def
+ /y2 exch def
+ /x2 exch def
+
+ b2 b1 sub abs 0.01 gt
+ g2 g1 sub abs 0.005 gt
+ r2 r1 sub abs 0.008 gt
+     or or {
+         /bm b1 b2 add 0.5 mul def
+         /gm g1 g2 add 0.5 mul def
+         /rm r1 r2 add 0.5 mul def
+         /ym y1 y2 add 0.5 mul def
+         /xm x1 x2 add 0.5 mul def
+
+         x1 y1 r1 g1 b1 xm ym rm gm bm SL
+         xm ym rm gm bm x2 y2 r2 g2 b2 SL
+ } {
+         x1 y1 x2 y2 r1 g1 b1 L
+ } ifelse
+} bind def
+% Flat-shaded triangle - x3 y3 x2 y2 x1 y1 r g b T
+/T { C newpath moveto lineto lineto closepath fill } bind def
+% Smooth-shaded triangle - x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 ST
+/ST {
+ /b1 exch def
+ /g1 exch def
+ /r1 exch def
+ /y1 exch def
+ /x1 exch def
+ /b2 exch def
+ /g2 exch def
+ /r2 exch def
+ /y2 exch def
+ /x2 exch def
+ /b3 exch def
+ /g3 exch def
+ /r3 exch def
+ /y3 exch def
+ /x3 exch def
+
+ b2 b1 sub abs 0.05 gt
+ g2 g1 sub abs 0.017 gt
+ r2 r1 sub abs 0.032 gt
+ b3 b1 sub abs 0.05 gt
+ g3 g1 sub abs 0.017 gt
+ r3 r1 sub abs 0.032 gt
+ b2 b3 sub abs 0.05 gt
+ g2 g3 sub abs 0.017 gt
+ r2 r3 sub abs 0.032 gt
+ or or or or or or or or {
+         /b12 b1 b2 add 0.5 mul def
+         /g12 g1 g2 add 0.5 mul def
+         /r12 r1 r2 add 0.5 mul def
+         /y12 y1 y2 add 0.5 mul def
+         /x12 x1 x2 add 0.5 mul def
+
+         /b13 b1 b3 add 0.5 mul def
+         /g13 g1 g3 add 0.5 mul def
+         /r13 r1 r3 add 0.5 mul def
+         /y13 y1 y3 add 0.5 mul def
+         /x13 x1 x3 add 0.5 mul def
+
+         /b32 b3 b2 add 0.5 mul def
+         /g32 g3 g2 add 0.5 mul def
+         /r32 r3 r2 add 0.5 mul def
+         /y32 y3 y2 add 0.5 mul def
+         /x32 x3 x2 add 0.5 mul def
+
+         x1 y1 r1 g1 b1 x12 y12 r12 g12 b12 x13 y13 r13 g13 b13
+         x2 y2 r2 g2 b2 x12 y12 r12 g12 b12 x32 y32 r32 g32 b32
+         x3 y3 r3 g3 b3 x32 y32 r32 g32 b32 x13 y13 r13 g13 b13
+         x32 y32 r32 g32 b32 x12 y12 r12 g12 b12 x13 y13 r13 g13 b13
+         ST ST ST ST
+ } {
+         x1 y1 x2 y2 x3 y3 r1 g1 b1 T
+ } ifelse
+} bind def
+%%EndProlog
+%%BeginSetup
+/#copies 1 def
+%%EndSetup
+%%Page: 1
+%%PageBoundingBox: 72 72 540 720
+%%BeginPageSetup
+%%EndPageSetup
+gsave
+gsave /helvetica findfont
+9 scalefont
+setfont
+newpath
+100 692 moveto
+(Howdy!) show
+grestore
+%%PageTrailer
+showpage
+grestore
+%%Trailer
+%%Pages: 1
+%%EOF

data/tests/stress1.rb

@@ -0,0 +1,94 @@
+#
+# An FXRuby stress test developed by Gilles Filippini
+#
+
+require "fox16"
+
+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 'fox16'
+
+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 'fox16'
+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,37 @@
+require 'test/unit'
+require 'fox16'
+
+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([])
+	else
+	  @theApp = FXApp.instance
+	end
+	@theMainWindow = FXMainWindow.new(@theApp, appName)
+      end      
+    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