fxruby 1.6.13-mswin32

data/examples/ratio.rb

@@ -0,0 +1,80 @@
+#!/usr/bin/env ruby
+# ratio.rb  
+# Translated from FOX C++ version to Ruby (Dec 2004) by Brett Hallett.
+# Demonstrates the use of the FXSpring method to retain size ratios between widgets when form is resized.
+#
+
+require 'fox16'
+require 'fox16/colors'
+
+include Fox
+
+class MainWindow < FXMainWindow
+  
+  def initialize(app)
+	 # Initialize base class first
+    super(app, 'Ratio', :opts => DECOR_ALL,
+      :width => 400, :height => 200,
+      :padLeft => 8, :padRight => 8, :padTop => 8, :padBottom =>8,
+      :hSpacing => 6, :vSpacing => 6)
+
+    # Add quit button and connect it to application
+    FXButton.new(self, "&Quit", nil, app, FXApp::ID_QUIT,
+      :opts => FRAME_RAISED|FRAME_THICK|LAYOUT_SIDE_BOTTOM|LAYOUT_CENTER_X,
+      :padLeft => 20, :padRight => 20, :padTop => 2, :padBottom => 2)
+
+    # Label above it
+    FXLabel.new(self,
+      "FXSpring can be used to keep widgets at fixed size ratios.\n\nResize the window to see how it behaves!",
+      :opts => LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+
+    # Layout manager to place the springs
+    horz = FXHorizontalFrame.new(self, FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+    :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0,
+    :hSpacing => 0, :vSpacing => 0)
+
+	 # First spring is set to behave normally in Y direction,
+	 # but to have a ratio 1 for the X direction
+	 FXSpring.new(horz, LAYOUT_FILL_X|LAYOUT_FILL_Y, :relw => 1, :padding => 0) do |spring|
+	   FXLabel.new(spring, "1", :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label|
+	     label.backColor = FXColor::Red
+      end
+    end
+
+    # Second spring has ratio 2 in the X direction
+    FXSpring.new(horz, LAYOUT_FILL_X|LAYOUT_FILL_Y, :relw => 2, :padding => 0) do |spring|
+      FXLabel.new(spring, "2", :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label|
+        label.backColor = FXColor::Green
+      end
+    end
+
+    # Third spring has ratio 3 in the X direction
+    FXSpring.new(horz, LAYOUT_FILL_X|LAYOUT_FILL_Y, :relw => 3, :padding => 0) do |spring|
+      puts "pl, pr, pt, pb = #{spring.padLeft}, #{spring.padRight}, #{spring.padTop}, #{spring.padBottom}"
+      FXLabel.new(spring, "3", :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label|
+        label.backColor = FXColor::Blue
+      end
+    end
+  end
+
+  def create
+    super 
+    show(PLACEMENT_SCREEN) 
+  end # create 
+
+end  # class MainWindow 
+
+if __FILE__ == $0
+  # Construct an application
+  FXApp.new('Smithy', 'Max') do |theApp|
+
+    # Construct the main window
+    MainWindow.new(theApp) 
+
+    # Create and show the application windows  
+    theApp.create 
+
+    # Run the application
+    theApp.run
+  end
+end

data/examples/rulerview.rb

@@ -0,0 +1,27 @@
+require 'fox16'
+
+include Fox
+
+class RulerViewExample < FXMainWindow
+  def initialize(app)
+    # Initialize base class
+    super(app, "Ruler View", :opts => DECOR_ALL, :width => 400, :height => 400)
+    
+    # Construct a ruler view inside
+    ruler_view = FXRulerView.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    # And put some content inside that
+    contents = FXText.new(ruler_view, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    contents.text = "This is a test."
+  end
+end
+
+if __FILE__ == $0
+  FXApp.new do |app|
+    main = RulerViewExample.new(app)
+    app.create
+    main.show(PLACEMENT_SCREEN)
+    app.run
+  end
+end
+

data/examples/scintilla-test.rb

@@ -0,0 +1,81 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/scintilla'
+
+include Fox
+
+ABOUT_MSG = <<EOM
+The FOX GUI toolkit is developed by Jeroen van der Zijp.
+The Scintilla source code editing component is developed by Neil Hodgson.
+The FXScintilla widget is developed by Gilles Filippini.
+and FXRuby is developed by Lyle Johnson.
+EOM
+
+class ScintillaTest  < FXMainWindow
+
+  def initialize(app)
+    # Invoke base class initialize method first
+    super(app, "Scintilla Test", nil, nil, DECOR_ALL, 0, 0, 800, 600)
+
+    # Menubar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+  
+    # Status bar
+    FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+
+    # Scintilla widget takes up the rest of the space
+    sunkenFrame = FXHorizontalFrame.new(self,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @scintilla = FXScintilla.new(sunkenFrame, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "&Open\tCtl-O\tOpen...").connect(SEL_COMMAND) {
+      openDialog = FXFileDialog.new(self, "Open Document")
+      openDialog.selectMode = SELECTFILE_EXISTING
+      openDialog.patternList = ["All Files (*.*)", "Ruby Files (*.rb)"]
+      if openDialog.execute != 0
+        loadFile(openDialog.filename)
+      end
+    }
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q\tQuit application.", nil,
+      getApp(), FXApp::ID_QUIT, 0)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+      
+    # Help menu
+    helpmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(helpmenu, "&About FXRuby...").connect(SEL_COMMAND) {
+      FXMessageBox.information(self, MBOX_OK, "About FXRuby", ABOUT_MSG)
+    }
+    FXMenuTitle.new(menubar, "&Help", nil, helpmenu, LAYOUT_RIGHT)
+  end
+
+  def loadFile(filename)
+    getApp().beginWaitCursor do
+      text = File.open(filename, "r").read
+      @scintilla.setText(text)
+    end
+  end
+
+  # Start
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("ScintillaTest", "FoxTest")
+  
+  # Make window
+  ScintillaTest.new(application)
+  
+  # Create app
+  application.create
+  
+  # Run
+  application.run
+end

data/examples/scribble-orig.rb

@@ -0,0 +1,186 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/responder'
+require 'fox16/colors'
+
+include Fox
+
+class ScribbleWindow < FXMainWindow
+
+  include Responder
+
+  def initialize(app)
+    # Call base class initializer first
+    super(app, "Scribble Application", nil, nil, DECOR_ALL,
+      0, 0, 800, 600)
+
+    # Message identifiers for this class
+    identifier :ID_CANVAS, :ID_CLEAR
+
+    # And here's the message map for this class
+    FXMAPFUNC(SEL_PAINT,             ID_CANVAS, :onPaint)
+    FXMAPFUNC(SEL_LEFTBUTTONPRESS,   ID_CANVAS, :onMouseDown)
+    FXMAPFUNC(SEL_LEFTBUTTONRELEASE, ID_CANVAS, :onMouseUp)
+    FXMAPFUNC(SEL_MOTION,            ID_CANVAS, :onMouseMove)
+    FXMAPFUNC(SEL_COMMAND,           ID_CLEAR,  :onCmdClear)
+    FXMAPFUNC(SEL_UPDATE,            ID_CLEAR,  :onUpdClear)
+
+    # Construct a horizontal frame to hold the main window's contents
+    @contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0, 0, 0, 0)
+
+    # Left pane contains the canvas
+    @canvasFrame = FXVerticalFrame.new(@contents,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      0, 0, 0, 0, 10, 10, 10, 10)
+
+    # Place a label above the canvas
+    FXLabel.new(@canvasFrame, "Canvas Frame", nil,
+      JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+
+    # Horizontal divider line
+    FXHorizontalSeparator.new(@canvasFrame, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+
+    # Drawing canvas
+    @canvas = FXCanvas.new(@canvasFrame, self, ID_CANVAS,
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+
+    # Right pane for the buttons
+    @buttonFrame = FXVerticalFrame.new(@contents,
+      FRAME_SUNKEN|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      0, 0, 0, 0, 10, 10, 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)
+
+    # Button to clear the canvas
+    FXButton.new(@buttonFrame, "&Clear", nil, self, ID_CLEAR,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      0, 0, 0, 0, 10, 10, 5, 5)
+
+    # Exit button
+    FXButton.new(@buttonFrame, "&Exit", nil, app, FXApp::ID_QUIT,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      0, 0, 0, 0, 10, 10, 5, 5)
+
+    # Initialize other member variables
+    @drawColor = FXColor::Red
+    @mouseDown = false
+    @dirty = false
+  end
+
+  # Create and show the main window
+  def create
+    super                  # Create the windows
+    show(PLACEMENT_SCREEN) # Make the main window appear
+  end
+
+  # Mouse button was pressed somewhere
+  def onMouseDown(sender, sel, ptr)
+    @canvas.grab
+    @mouseDown = true
+    return 1
+  end
+
+  # Mouse has moved, so draw a line
+  def onMouseMove(sender, sel, event)
+    if @mouseDown
+      # Get device context for the canvas
+      dc = FXDCWindow.new(@canvas)
+
+      # Set the foreground color for drawing
+      dc.setForeground(@drawColor)
+
+      # Draw a line from the previous mouse coordinates to the current ones
+      dc.drawLine(event.last_x, event.last_y, event.win_x, event.win_y)
+
+      # We have drawn something, so now the canvas is dirty
+      @dirty = true
+
+      # Release the DC immediately
+      dc.end
+    end
+    return 1
+  end
+
+  # Mouse button released
+  def onMouseUp(sender, sel, event)
+    @canvas.ungrab
+    if @mouseDown
+      # Get device context for the canvas
+      dc = FXDCWindow.new(@canvas)
+
+      # Set the foreground color for drawing
+      dc.setForeground(@drawColor)
+
+      # Draw a line from the previous mouse coordinates to the current ones
+      dc.drawLine(event.last_x, event.last_y, event.win_x, event.win_y)
+
+      # We have drawn something, so now the canvas is dirty
+      @dirty = true
+
+      # Mouse no longer down
+      @mouseDown = false
+
+      # Release the DC immediately
+      dc.end
+    end
+    return 1
+  end
+
+  # Paint the canvas
+  def onPaint(sender, sel, event)
+    dc = FXDCWindow.new(@canvas, event)
+    dc.setForeground(@canvas.backColor)
+    dc.fillRectangle(event.rect.x, event.rect.y, event.rect.w, event.rect.h)
+    dc.end
+  end
+
+  # Handle the clear message
+  def onCmdClear(sender, sel, ptr)
+    dc = FXDCWindow.new(@canvas)
+    dc.setForeground(@canvas.backColor)
+    dc.fillRectangle(0, 0, @canvas.width, @canvas.height)
+    @dirty = false
+    dc.end
+    return 1
+  end
+
+  # This function handles the update message sent by the Clear button
+  # to its target. Every widget in FOX receives a message (SEL_UPDATE)
+  # during idle processing, asking it to update itself. For example,
+  # buttons could be enabled or disabled as the state of the application
+  # changes.
+  #
+  # In this case, we'll disable the sender (the Clear button) when the
+  # canvas has already been cleared (i.e. it's "clean"), and enable it when
+  # it has been painted (i.e. it's "dirty").
+  #
+  def onUpdClear(sender, sel, ptr)
+    message = @dirty ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+    sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    return 1
+  end
+end
+
+def run
+  # Construct the application object
+  application = FXApp.new('Scribble', 'FoxTest')
+  
+  # Construct the main window
+  scribble = ScribbleWindow.new(application)
+  
+  # Create the application
+  application.create
+  
+  # Run the application
+  application.run
+end
+
+run

data/examples/scribble.rb

@@ -0,0 +1,162 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class ScribbleWindow < FXMainWindow
+
+  def initialize(app)
+    # Call base class initializer first
+    super(app, "Scribble Application", :width => 800, :height => 600)
+
+    # Construct a horizontal frame to hold the main window's contents
+    @contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+
+    # Left pane contains the canvas
+    @canvasFrame = FXVerticalFrame.new(@contents,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 10, :padBottom => 10)
+
+    # Place a label above the canvas
+    FXLabel.new(@canvasFrame, "Canvas Frame", nil, JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+
+    # Horizontal divider line
+    FXHorizontalSeparator.new(@canvasFrame, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+
+    # Drawing canvas
+    @canvas = FXCanvas.new(@canvasFrame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+    @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
+    @canvas.connect(SEL_LEFTBUTTONPRESS) do
+      @canvas.grab
+      @mouseDown = true
+    end
+    @canvas.connect(SEL_MOTION) do |sender, sel, event|
+      if @mouseDown
+        # Get device context for the canvas
+        dc = FXDCWindow.new(@canvas)
+
+        # Set the foreground color for drawing
+        dc.foreground = @drawColor
+
+        # Draw a line from the previous mouse coordinates to the current ones
+        if @mirrorMode.value
+          cW = @canvas.width
+          cH = @canvas.height
+          dc.drawLine(cW-event.last_x, event.last_y,
+                      cW-event.win_x, event.win_y)
+          dc.drawLine(event.last_x, cH-event.last_y,
+                      event.win_x, cH-event.win_y)
+          dc.drawLine(cW-event.last_x, cH-event.last_y,
+                      cW-event.win_x, cH-event.win_y)
+        end
+        dc.drawLine(event.last_x, event.last_y, event.win_x, event.win_y)
+
+        # We have drawn something, so now the canvas is dirty
+        @dirty = true
+
+        # Release the DC immediately
+        dc.end
+      end
+    end
+    @canvas.connect(SEL_LEFTBUTTONRELEASE) do |sender, sel, event|
+      @canvas.ungrab
+      if @mouseDown
+        # Get device context for the canvas
+        dc = FXDCWindow.new(@canvas)
+
+        # Set the foreground color for drawing
+        dc.foreground = @drawColor
+
+        # Draw a line from the previous mouse coordinates to the current ones
+        dc.drawLine(event.last_x, event.last_y, event.win_x, event.win_y)
+
+        # We have drawn something, so now the canvas is dirty
+        @dirty = true
+
+        # Mouse no longer down
+        @mouseDown = false
+
+        # Release this DC immediately
+        dc.end
+      end
+    end
+
+    # Right pane for the buttons
+    @buttonFrame = FXVerticalFrame.new(@contents,
+      FRAME_SUNKEN|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 10, :padBottom => 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)
+
+    # Enable or disable mirror mode
+    @mirrorMode = FXDataTarget.new(false)
+    FXCheckButton.new(@buttonFrame, "Mirror", @mirrorMode, FXDataTarget::ID_VALUE, CHECKBUTTON_NORMAL|LAYOUT_FILL_X)
+
+    # Button to clear the canvas
+    clearButton = FXButton.new(@buttonFrame, "&Clear",
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+    clearButton.connect(SEL_COMMAND) do
+      FXDCWindow.new(@canvas) do |dc|
+        dc.foreground = @canvas.backColor
+        dc.fillRectangle(0, 0, @canvas.width, @canvas.height)
+        @dirty = false
+      end
+    end
+    clearButton.connect(SEL_UPDATE) do |sender, sel, ptr|
+      # This procedure handles the update message sent by the Clear button
+      # to its target. Every widget in FOX receives a message (SEL_UPDATE)
+      # during idle processing, asking it to update itself. For example,
+      # buttons could be enabled or disabled as the state of the application
+      # changes.
+      #
+      # In this case, we'll disable the sender (the Clear button) when the
+      # canvas has already been cleared (i.e. it's "clean"), and enable it when
+      # it has been painted (i.e. it's "dirty").
+      message = @dirty ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+      sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    end
+
+    # Exit button
+    FXButton.new(@buttonFrame, "&Exit", nil, app, FXApp::ID_QUIT,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+
+    # Initialize other member variables
+    @drawColor = "red"
+    @mouseDown = false
+    @dirty = false
+  end
+
+  # Create and show the main window
+  def create
+    super                  # Create the windows
+    show(PLACEMENT_SCREEN) # Make the main window appear
+  end
+end
+
+if __FILE__ == $0
+  # Construct the application object
+  application = FXApp.new('Scribble', 'FoxTest')
+  
+  # Construct the main window
+  scribble = ScribbleWindow.new(application)
+  
+  # Create the application
+  application.create
+  
+  # Run the application
+  application.run
+end