fxruby 1.6.14-universal-darwin-9

data/tests/blankpage.ps

@@ -0,0 +1,166 @@
+%!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
+%%Trailer
+%%Pages: 0
+%%EOF

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/output.ps

@@ -0,0 +1,166 @@
+%!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
+%%Trailer
+%%Pages: 0
+%%EOF

data/tests/stress1.rb

@@ -0,0 +1,92 @@
+#
+# 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(p)
+    super(p, :opts => TREELIST_SHOWS_LINES|TREELIST_SHOWS_BOXES|TREELIST_ROOT_BOXES|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  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) 
+
+    @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
+