fxruby 1.2.2

data/tests/TC_FXViewport.rb

@@ -0,0 +1,30 @@
+require 'test/unit'
+
+require 'fox12'
+
+include Fox
+
+class TC_FXViewport < Test::Unit::TestCase
+  def setup
+    @viewport = FXViewport.new
+  end
+
+  def testAttributes
+    assert(@viewport.w)
+    assert_kind_of(Integer, @viewport.w)
+    assert(@viewport.h)
+    assert_kind_of(Integer, @viewport.h)
+    assert(@viewport.left)
+    assert_kind_of(Float, @viewport.left)
+    assert(@viewport.right)
+    assert_kind_of(Float, @viewport.right)
+    assert(@viewport.bottom)
+    assert_kind_of(Float, @viewport.bottom)
+    assert(@viewport.top)
+    assert_kind_of(Float, @viewport.top)
+    assert(@viewport.hither)
+    assert_kind_of(Float, @viewport.hither)
+    assert(@viewport.yon)
+    assert_kind_of(Float, @viewport.yon)
+  end
+end

data/tests/TC_Misc.rb

@@ -0,0 +1,157 @@
+require 'test/unit'
+
+require 'fox12'
+
+class TC_Misc < Test::Unit::TestCase
+
+  DELTA = 1.0e-5
+
+  def test_MKUINT
+    assert_equal(0, Fox.MKUINT(Fox::MINKEY, Fox::MINTYPE))
+    assert_equal(65535, Fox.MKUINT(Fox::MAXKEY, Fox::MINTYPE))
+    assert_equal(4294901760, Fox.MKUINT(Fox::MINKEY, Fox::MAXTYPE))
+    assert_equal(4294967295, Fox.MKUINT(Fox::MAXKEY, Fox::MAXTYPE))
+  end
+
+  def test_FXSEL
+    assert_equal(0, Fox.FXSEL(Fox::MINTYPE, Fox::MINKEY))
+    assert_equal(65535, Fox.FXSEL(Fox::MINTYPE, Fox::MAXKEY))
+    assert_equal(4294901760, Fox.FXSEL(Fox::MAXTYPE, Fox::MINKEY))
+    assert_equal(4294967295, Fox.FXSEL(Fox::MAXTYPE, Fox::MAXKEY))
+  end
+
+  def test_FXSELTYPE
+    assert_equal(Fox::MINTYPE, Fox.FXSELTYPE(0))
+    assert_equal(Fox::MINTYPE, Fox.FXSELTYPE(65535))
+    assert_equal(Fox::MAXTYPE, Fox.FXSELTYPE(4294901760))
+    assert_equal(Fox::MAXTYPE, Fox.FXSELTYPE(4294967295))
+  end
+
+  def test_FXSELID
+    assert_equal(Fox::MINKEY, Fox.FXSELID(0))
+    assert_equal(Fox::MAXKEY, Fox.FXSELID(65535))
+    assert_equal(Fox::MINKEY, Fox.FXSELID(4294901760))
+    assert_equal(Fox::MAXKEY, Fox.FXSELID(4294967295))
+  end
+
+  def test_FXRGB
+    # result depends on endian-ness of platform!
+  end
+
+  def test_FXRGBA
+    # result depends on endian-ness of platform!
+  end
+
+  def test_FXREDVAL
+    assert_equal(1, Fox.FXREDVAL(Fox.FXRGB(1, 0, 0)))
+  end
+
+  def test_FXGREENVAL
+    assert_equal(1, Fox.FXGREENVAL(Fox.FXRGB(0, 1, 0)))
+  end
+
+  def test_FXBLUEVAL
+    assert_equal(1, Fox.FXBLUEVAL(Fox.FXRGB(0, 0, 1)))
+  end
+
+  def test_FXALPHAVAL
+    assert_equal(1, Fox.FXALPHAVAL(Fox.FXRGBA(0, 0, 0, 1)))
+  end
+
+  def test_FXRGBACOMPVAL
+    clr = Fox.FXRGBA(0, 1, 2, 3)
+    0.upto(3) { |i|
+      assert_equal(i, Fox.FXRGBACOMPVAL(clr, i))
+    }
+  end
+
+  def test_fxparseAccel
+  end
+
+  def test_fxparseHotKey
+  end
+
+  def test_fxfindhotkeyoffset
+  end
+
+  def test_makeHiliteColor
+  end
+
+  def test_makeShadowColor
+  end
+
+  def test_fxcolorfromname
+  end
+
+  def test_fxnamefromcolor
+  end
+
+  def test_fxhsv_to_rgb
+    h, s, v = 180.0, 0.0, 1.0
+    r, g, b = Fox.fxhsv_to_rgb(h, s, v)
+    assert_in_delta(v, r, DELTA)
+    assert_in_delta(v, g, DELTA)
+    assert_in_delta(v, b, DELTA)
+
+    h, s, v = 180.0, 0.5, 1.0
+    r, g, b = Fox.fxhsv_to_rgb(h, s, v)
+    assert_in_delta(0.5, r, DELTA)
+    assert_in_delta(1.0, g, DELTA)
+    assert_in_delta(1.0, b, DELTA)
+
+    h, s, v = 0.0, 0.5, 1.0
+    r, g, b = Fox.fxhsv_to_rgb(h, s, v)
+    assert_in_delta(1.0, r, DELTA)
+    assert_in_delta(0.5, g, DELTA)
+    assert_in_delta(0.5, b, DELTA)
+
+    h, s, v = 360.0, 0.5, 1.0
+    r, g, b = Fox.fxhsv_to_rgb(h, s, v)
+    assert_in_delta(1.0, r, DELTA)
+    assert_in_delta(0.5, g, DELTA)
+    assert_in_delta(0.5, b, DELTA)
+  end
+
+  def test_fxrgb_to_hsv
+    r, g, b = 0.0, 0.0, 0.0
+    h, s, v = Fox.fxrgb_to_hsv(r, g, b)
+    assert_in_delta(0.0, h, DELTA)
+    assert_in_delta(0.0, s, DELTA)
+    assert_in_delta(0.0, v, DELTA)
+
+    r, g, b = 0.5, 0.5, 0.5
+    h, s, v = Fox.fxrgb_to_hsv(r, g, b)
+    assert_in_delta(0.0, h, DELTA)
+    assert_in_delta(0.0, s, DELTA)
+    assert_in_delta(0.5, v, DELTA)
+
+    r, g, b = 1.0, 0.0, 0.0
+    h, s, v = Fox.fxrgb_to_hsv(r, g, b)
+    assert_in_delta(0.0, h, DELTA)
+    assert_in_delta(1.0, s, DELTA)
+    assert_in_delta(1.0, v, DELTA)
+
+    r, g, b = 0.0, 1.0, 0.0
+    h, s, v = Fox.fxrgb_to_hsv(r, g, b)
+    assert_in_delta(120.0, h, DELTA)
+    assert_in_delta(1.0, s, DELTA)
+    assert_in_delta(1.0, v, DELTA)
+
+    r, g, b = 0.0, 0.0, 1.0
+    h, s, v = Fox.fxrgb_to_hsv(r, g, b)
+    assert_in_delta(240.0, h, DELTA)
+    assert_in_delta(1.0, s, DELTA)
+    assert_in_delta(1.0, v, DELTA)
+  end
+  
+  def test_fxversion
+    assert_instance_of(String, Fox.fxversion)
+  end
+  
+  def test_fxrubyversion
+    assert_instance_of(String, Fox.fxrubyversion)
+  end
+
+  def test_fxTraceLevel
+  end
+end

data/tests/TC_downcast.rb

@@ -0,0 +1,15 @@
+require 'test/unit'
+require 'fox12'
+require 'testcase'
+
+include Fox
+
+class TC_downcast < TestCase
+  def setup
+    super(self.class.name)
+  end
+  def test_downcast
+    fs = FXFileSelector.new(mainWindow)
+    assert_kind_of(FXHorizontalFrame, fs.first)
+  end
+end

data/tests/TS_All.rb

@@ -0,0 +1,25 @@
+require 'fox12'
+require 'test/unit'
+
+class TS_All
+  def TS_All.suite
+    suite = Test::Unit::TestSuite.new
+    Object.constants.sort.each do |k|
+      next if /^TC_/ !~ k
+      constant = Object.const_get(k)
+      if constant.kind_of?(Class) && constant.superclass == Test::Unit::TestCase
+#       puts "adding tests for #{constant.to_s}"
+	suite << constant.suite
+      end
+    end
+    suite
+  end
+end
+
+if __FILE__ == $0
+  require 'test/unit/ui/console/testrunner'
+  Dir.glob("TC_*.rb").each do |testcase|
+    require "#{testcase}"
+  end
+  Test::Unit::UI::Console::TestRunner.run(TS_All)
+end

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/doit.rb

@@ -0,0 +1,5 @@
+Dir.glob("*.rb") do |filename|
+  system("cp #{filename} #{filename+'.bak'}")
+  system("sed -e \"s/require 'fox12'/require 'fox12'/g\" #{filename+'.bak'} > #{filename}")
+end
+

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