fxruby 1.6.13-mswin32

data/examples/dropsite.rb

@@ -0,0 +1,59 @@
+require 'fox16'
+
+include Fox
+
+class DropSite < FXMainWindow
+  
+  def initialize(anApp)
+    # Initialize base class
+    super(anApp, "Drop Site", :opts => DECOR_ALL, :width => 400, :height => 300)
+    
+    # Fill main window with canvas
+    @canvas = FXCanvas.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    # Handle expose events on the canvas
+    @canvas.connect(SEL_PAINT) do |sender, sel, event|
+      FXDCWindow.new(@canvas, event) do |dc|
+        dc.foreground = @canvas.backColor
+        dc.fillRectangle(event.rect.x, event.rect.y, event.rect.w, event.rect.h)
+      end
+    end
+
+    # Enable canvas for drag-and-drop messages
+    @canvas.dropEnable
+    
+    # Handle SEL_DND_MOTION messages from the canvas
+    @canvas.connect(SEL_DND_MOTION) do
+      @canvas.acceptDrop if @canvas.offeredDNDType?(FROM_DRAGNDROP, FXWindow.colorType)
+    end
+
+    # Handle SEL_DND_DROP message from the canvas
+    @canvas.connect(SEL_DND_DROP) do
+      # Try to obtain the data as color values first
+      data = @canvas.getDNDData(FROM_DRAGNDROP, FXWindow.colorType)
+
+      # Update canvas background color
+      @canvas.backColor = Fox.fxdecodeColorData(data) unless data.nil?
+    end
+  end
+
+  def create
+    # Create the main window and canvas
+    super
+    
+    # Register the drag type for colors
+    FXWindow.colorType = getApp().registerDragType(FXWindow.colorTypeName)
+
+    # Show the main window
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  FXApp.new("DropSite", "FXRuby") do |theApp|
+    DropSite.new(theApp)
+    theApp.create
+    theApp.run
+  end
+end
+

data/examples/foursplit.rb

@@ -0,0 +1,97 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class FourSplitWindow < FXMainWindow
+  def initialize(app)
+    # Call the base class initialize() first
+    super(app, "4-Way Splitter Test", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Menu bar, along the top
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+  
+    # Status bar, along the bottom
+    FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+    
+    # The top-level splitter takes up the rest of the space
+    splitter = FX4Splitter.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y|FOURSPLITTER_TRACKING)
+    
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q\tQuit the application.", nil,
+      getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+    
+    # Expand menu
+    expandmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(expandmenu, "All four", nil,
+      splitter, FX4Splitter::ID_EXPAND_ALL)
+    FXMenuCommand.new(expandmenu, "Top/left", nil,
+      splitter, FX4Splitter::ID_EXPAND_TOPLEFT)
+    FXMenuCommand.new(expandmenu, "Top/right", nil,
+      splitter, FX4Splitter::ID_EXPAND_TOPRIGHT)
+    FXMenuCommand.new(expandmenu, "Bottom/left", nil,
+      splitter, FX4Splitter::ID_EXPAND_BOTTOMLEFT)
+    FXMenuCommand.new(expandmenu, "Bottom/right", nil,
+      splitter, FX4Splitter::ID_EXPAND_BOTTOMRIGHT)
+    FXMenuTitle.new(menubar, "&Expand", nil, expandmenu)
+    
+    # The 4-splitter accepts exactly four child widgets, and the
+    # order in which they are added matters (top left, top right,
+    # bottom left and bottom right, in that order). For our case,
+    # the first three child widgets are just regular pushbuttons,
+    # but the fourth is itself another 4-splitter. There is no
+    # restriction on nesting these kinds of widgets.
+
+    FXButton.new(splitter, "Top &Left\tThis splitter tracks", :opts => FRAME_RAISED|FRAME_THICK)
+
+    FXButton.new(splitter, "Top &Right\tThis splitter tracks", :opts => FRAME_RAISED|FRAME_THICK)
+
+    FXButton.new(splitter, "&Bottom Left\tThis splitter tracks", :opts => FRAME_SUNKEN|FRAME_THICK)
+
+    subsplitter = FX4Splitter.new(splitter, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Create the four children of the sub-splitter...
+    FXButton.new(subsplitter, "&Of course\tThis splitter does NOT track") do |theButton|
+      theButton.frameStyle = FRAME_SUNKEN|FRAME_THICK
+      theButton.backColor = FXRGB(0, 128, 0)
+      theButton.textColor = FXRGB(255, 255, 255)
+    end
+
+    button = FXButton.new(subsplitter,
+      "the&y CAN\tThis splitter does NOT track", :opts => FRAME_SUNKEN|FRAME_THICK)
+    button.backColor = FXRGB(128, 0, 0)
+    button.textColor = FXRGB(255, 255, 255)
+
+    button = FXButton.new(subsplitter,
+      "be &NESTED\tThis splitter does NOT track", :opts => FRAME_SUNKEN|FRAME_THICK)
+    button.backColor = FXRGB(0, 0, 200)
+    button.textColor = FXRGB(255, 255, 255)
+
+    button = FXButton.new(subsplitter,
+      "&arbitrarily!\tThis splitter does NOT track", :opts => FRAME_SUNKEN|FRAME_THICK)
+    button.backColor = FXRGB(128, 128, 0)
+    button.textColor = FXRGB(255, 255, 255)
+    
+    # Finally, create the tool tip object
+    FXToolTip.new(getApp())
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+def runme
+  application = FXApp.new("FourSplit", "FoxTest")
+  FourSplitWindow.new(application)
+  application.create
+  application.run
+end
+
+runme

data/examples/gltest.rb

@@ -0,0 +1,330 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+begin
+  require 'opengl'
+rescue LoadError
+  require 'fox16/missingdep'
+  MSG = <<EOM
+  Sorry, this example depends on the OpenGL extension. Please
+  check the Ruby Application Archives for an appropriate
+  download site.
+EOM
+  missingDependency(MSG)
+end
+
+
+include Fox
+
+class GLTestWindow < FXMainWindow
+
+  # How often our timer will fire (in milliseconds)
+  TIMER_INTERVAL = 100
+
+  # Draws a simple box using the given corners
+  def drawBox(xmin, ymin, zmin, xmax, ymax, zmax)
+    GL.Begin(GL::TRIANGLE_STRIP)
+      GL.Normal(0.0, 0.0, -1.0)
+      GL.Vertex(xmin, ymin, zmin)
+      GL.Vertex(xmin, ymax, zmin)
+      GL.Vertex(xmax, ymin, zmin)
+      GL.Vertex(xmax, ymax, zmin)
+    GL.End()
+  
+    GL.Begin(GL::TRIANGLE_STRIP)
+      GL.Normal(1.0, 0.0, 0.0)
+      GL.Vertex(xmax, ymin, zmin)
+      GL.Vertex(xmax, ymax, zmin)
+      GL.Vertex(xmax, ymin, zmax)
+      GL.Vertex(xmax, ymax, zmax)
+    GL.End()
+  
+    GL.Begin(GL::TRIANGLE_STRIP)
+      GL.Normal(0.0, 0.0, 1.0)
+      GL.Vertex(xmax, ymin, zmax)
+      GL.Vertex(xmax, ymax, zmax)
+      GL.Vertex(xmin, ymin, zmax)
+      GL.Vertex(xmin, ymax, zmax)
+    GL.End()
+  
+    GL.Begin(GL::TRIANGLE_STRIP)
+      GL.Normal(-1.0, 0.0, 0.0)
+      GL.Vertex(xmin, ymin, zmax)
+      GL.Vertex(xmin, ymax, zmax)
+      GL.Vertex(xmin, ymin, zmin)
+      GL.Vertex(xmin, ymax, zmin)
+    GL.End()
+  
+    GL.Begin(GL::TRIANGLE_STRIP)
+      GL.Normal(0.0, 1.0, 0.0)
+      GL.Vertex(xmin, ymax, zmin)
+      GL.Vertex(xmin, ymax, zmax)
+      GL.Vertex(xmax, ymax, zmin)
+      GL.Vertex(xmax, ymax, zmax)
+    GL.End()
+  
+    GL.Begin(GL::TRIANGLE_STRIP)
+      GL.Normal(0.0, -1.0, 0.0)
+      GL.Vertex(xmax, ymin, zmax)
+      GL.Vertex(xmax, ymin, zmin)
+      GL.Vertex(xmin, ymin, zmax)
+      GL.Vertex(xmin, ymin, zmin)
+    GL.End()
+  end
+
+  # Draw the GL scene
+  def drawScene
+    lightPosition = [15.0, 10.0, 5.0, 1.0]
+    lightAmbient  = [ 0.1,  0.1, 0.1, 1.0]
+    lightDiffuse  = [ 0.9,  0.9, 0.9, 1.0]
+    redMaterial   = [ 1.0,  0.0, 0.0, 1.0]
+    blueMaterial  = [ 0.0,  0.0, 1.0, 1.0]
+  
+    width = @glcanvas.width.to_f
+    height = @glcanvas.height.to_f
+    aspect = width/height
+  
+    # Make context current
+    @glcanvas.makeCurrent()
+    
+    GL.Viewport(0, 0, @glcanvas.width, @glcanvas.height)
+  
+    GL.ClearColor(1.0, 1.0, 1.0, 1.0)
+    GL.Clear(GL::COLOR_BUFFER_BIT|GL::DEPTH_BUFFER_BIT)
+    GL.Enable(GL::DEPTH_TEST)
+    
+    GL.Disable(GL::DITHER)
+  
+    GL.MatrixMode(GL::PROJECTION)
+    GL.LoadIdentity()
+    GLU.Perspective(30.0, aspect, 1.0, 100.0)
+  
+    GL.MatrixMode(GL::MODELVIEW)
+    GL.LoadIdentity()
+    GLU.LookAt(5.0, 10.0, 15.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0)
+  
+    GL.ShadeModel(GL::SMOOTH)
+    GL.Light(GL::LIGHT0, GL::POSITION, lightPosition)
+    GL.Light(GL::LIGHT0, GL::AMBIENT, lightAmbient)
+    GL.Light(GL::LIGHT0, GL::DIFFUSE, lightDiffuse)
+    GL.Enable(GL::LIGHT0)
+    GL.Enable(GL::LIGHTING)
+  
+    GL.Material(GL::FRONT, GL::AMBIENT, blueMaterial)
+    GL.Material(GL::FRONT, GL::DIFFUSE, blueMaterial)
+  
+    GL.PushMatrix()
+    GL.Rotated(@angle, 0.0, 1.0, 0.0)
+    drawBox(-1, -1, -1, 1, 1, 1)
+  
+    GL.Material(GL::FRONT, GL::AMBIENT, redMaterial)
+    GL.Material(GL::FRONT, GL::DIFFUSE, redMaterial)
+  
+    GL.PushMatrix()
+    GL.Translated(0.0, 1.75, 0.0)
+    GL.Rotated(@angle, 0.0, 1.0, 0.0)
+    drawBox(-0.5, -0.5, -0.5, 0.5, 0.5, 0.5)
+    GL.PopMatrix()
+  
+    GL.PushMatrix()
+    GL.Translated(0.0, -1.75, 0.0)
+    GL.Rotated(@angle, 0.0, 1.0, 0.0)
+    drawBox(-0.5, -0.5, -0.5, 0.5, 0.5, 0.5)
+    GL.PopMatrix()
+  
+    GL.PushMatrix()
+    GL.Rotated(90.0, 1.0, 0.0, 0.0)
+    GL.Translated(0.0, 1.75, 0.0)
+    GL.Rotated(@angle, 0.0, 1.0, 0.0)
+    drawBox(-0.5,-0.5,-0.5,0.5,0.5,0.5)
+    GL.PopMatrix()
+  
+    GL.PushMatrix()
+    GL.Rotated(90.0, -1.0, 0.0, 0.0)
+    GL.Translated(0.0,1.75,0.0)
+    GL.Rotated(@angle, 0.0, 1.0, 0.0)
+    drawBox(-0.5,-0.5,-0.5,0.5,0.5,0.5)
+    GL.PopMatrix()
+  
+    GL.PushMatrix()
+    GL.Rotated(90.0, 0.0, 0.0, 1.0)
+    GL.Translated(0.0,1.75,0.0)
+    GL.Rotated(@angle, 0.0, 1.0, 0.0)
+    drawBox(-0.5,-0.5,-0.5,0.5,0.5,0.5)
+    GL.PopMatrix()
+  
+    GL.PushMatrix()
+    GL.Rotated(90.0, 0.0, 0.0, -1.0)
+    GL.Translated(0.0,1.75,0.0)
+    GL.Rotated(@angle, 0.0, 1.0, 0.0)
+    drawBox(-0.5,-0.5,-0.5,0.5,0.5,0.5)
+    GL.PopMatrix()
+  
+    GL.PopMatrix()
+  
+    # Swap if it is double-buffered
+    if @glvisual.isDoubleBuffer
+      @glcanvas.swapBuffers
+    end
+    
+    # Make context non-current
+    @glcanvas.makeNonCurrent
+  end
+
+  def initialize(app)
+    # Invoke the base class initializer
+    super(app, "OpenGL Test Application", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Construct the main window elements
+    frame = FXHorizontalFrame.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    frame.padLeft, frame.padRight = 0, 0
+    frame.padTop, frame.padBottom = 0, 0
+
+    # Left pane to contain the glcanvas
+    glcanvasFrame = FXVerticalFrame.new(frame,
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+    glcanvasFrame.padLeft, glcanvasFrame.padRight = 10, 10
+    glcanvasFrame.padTop, glcanvasFrame.padBottom = 10, 10
+  
+    # Label above the glcanvas
+    FXLabel.new(glcanvasFrame, "OpenGL Canvas Frame", nil,
+      JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+  
+    # Horizontal divider line
+    FXHorizontalSeparator.new(glcanvasFrame, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+  
+    # Drawing glcanvas
+    glpanel = FXVerticalFrame.new(glcanvasFrame, (FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT))
+    glpanel.padLeft, glpanel.padRight = 0, 0
+    glpanel.padTop, glpanel.padBottom = 0, 0
+      
+    # A visual to draw OpenGL
+    @glvisual = FXGLVisual.new(getApp(), VISUAL_DOUBLEBUFFER)
+  
+    # Drawing glcanvas
+    @glcanvas = FXGLCanvas.new(glpanel, @glvisual, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+    @glcanvas.connect(SEL_PAINT) { drawScene }
+    @glcanvas.connect(SEL_CONFIGURE) do
+      if @glcanvas.makeCurrent
+        GL.Viewport(0, 0, @glcanvas.width, @glcanvas.height)
+        @glcanvas.makeNonCurrent
+      end
+    end
+  
+    # Right pane for the buttons
+    buttonFrame = FXVerticalFrame.new(frame, LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+    buttonFrame.padLeft, buttonFrame.padRight = 10, 10
+    buttonFrame.padTop, buttonFrame.padBottom = 10, 10
+      
+    # Label above the buttons
+    FXLabel.new(buttonFrame, "Button Frame", nil,
+      JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+  
+    # Horizontal divider line
+    FXHorizontalSeparator.new(buttonFrame, SEPARATOR_RIDGE|LAYOUT_FILL_X)
+  
+    # Spin according to timer
+    spinTimerBtn = FXButton.new(buttonFrame, "Spin &Timer\tSpin using interval timers\nNote the app blocks until the interal has elapsed...",nil,nil,0,FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT)
+    spinTimerBtn.padLeft, spinTimerBtn.padRight = 10, 10
+    spinTimerBtn.padTop, spinTimerBtn.padBottom = 5, 5
+    spinTimerBtn.connect(SEL_COMMAND) do
+      @spinning = true
+      @timer = getApp().addTimeout(TIMER_INTERVAL, :repeat => true) do
+        @angle += 2.0
+        if @angle > 360.0
+          @angle -= 360.0
+        end
+        drawScene()
+      end
+    end
+    spinTimerBtn.connect(SEL_UPDATE) do |sender, sel, ptr|
+      @spinning ? sender.disable : sender.enable
+    end
+
+    # Spin according to chore
+    spinChoreBtn = FXButton.new(buttonFrame,
+      "Spin &Chore\tSpin as fast as possible using chores\nNote even though the
+      app is very responsive, it never blocks;\nthere is always something to
+      do...", :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT)
+    spinChoreBtn.padLeft, spinChoreBtn.padRight = 10, 10
+    spinChoreBtn.padTop, spinChoreBtn.padBottom = 5, 5
+    spinChoreBtn.connect(SEL_COMMAND) do
+      @spinning = true
+      @chore = getApp().addChore(:repeat => true) do
+        @angle += 2.0
+        if @angle > 360.0
+          @angle -= 360.0
+        end
+        drawScene()
+      end
+    end
+    spinChoreBtn.connect(SEL_UPDATE) do |sender, sel, ptr|
+      @spinning ? sender.disable : sender.enable
+    end
+  
+    # Stop spinning
+    stopBtn = FXButton.new(buttonFrame,
+      "&Stop Spin\tStop this mad spinning, I'm getting dizzy",
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT)
+    stopBtn.padLeft, stopBtn.padRight = 10, 10
+    stopBtn.padTop, stopBtn.padBottom = 5, 5
+    stopBtn.connect(SEL_COMMAND) do
+      @spinning = false
+      if @timer
+        getApp().removeTimeout(@timer)
+        @timer = nil
+      end
+      if @chore
+        getApp().removeChore(@chore)
+        @chore = nil
+      end
+    end
+    stopBtn.connect(SEL_UPDATE) do |sender, sel, ptr|
+      @spinning ? sender.enable : sender.disable
+    end
+  
+    # Exit button
+    exitBtn = FXButton.new(buttonFrame, "&Exit\tExit the application", nil,
+      getApp(), FXApp::ID_QUIT,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT)
+    exitBtn.padLeft, exitBtn.padRight = 10, 10
+    exitBtn.padTop, exitBtn.padBottom = 5, 5
+      
+    # Make a tooltip
+    FXToolTip.new(getApp())
+  
+    # Initialize private variables
+    @spinning = false
+    @chore = nil
+    @timer = nil
+    @angle = 0.0
+  end
+
+  # Create and initialize
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Construct the application
+  application = FXApp.new("GLTest", "FoxTest")
+  
+  # To ensure that the chores-based spin will run as fast as possible,
+  # we can disable the chore in FXRuby's event loop that tries to schedule
+  # other threads. This is OK for this program because there aren't any
+  # other Ruby threads running.
+  
+  application.disableThreads
+
+  # Construct the main window
+  GLTestWindow.new(application)
+
+  # Create the app's windows
+  application.create
+
+  # Run the application
+  application.run
+end