fxruby 1.6.27-x64-mingw32

data/examples/image.rb

@@ -0,0 +1,279 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/colors'
+
+include Fox
+
+class ImageWindow < FXMainWindow
+
+  def initialize(app)
+    # Invoke base class initializer first
+    super(app, "Image Application", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Create a color dialog for later use
+    colordlg = FXColorDialog.new(self, "Color Dialog")
+
+    contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+
+    # LEFT pane to contain 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)
+
+    # Label above the canvas
+    FXLabel.new(canvasFrame, "Canvas Frame", :opts => JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+
+    # Horizontal divider line
+    FXHorizontalSeparator.new(canvasFrame, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+
+    # Drawing canvas
+    @canvas = FXCanvas.new(canvasFrame, :opts => (FRAME_SUNKEN|
+      FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT))
+    @canvas.connect(SEL_PAINT, method(:onCanvasRepaint))
+
+    # RIGHT pane for the buttons
+    buttonFrame = FXVerticalFrame.new(contents,
+      :opts => 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)
+
+    FXLabel.new(buttonFrame, "&Background\nColor well", :opts => JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+    @backwell = FXColorWell.new(buttonFrame, FXColor::White,
+      :opts => LAYOUT_CENTER_X|LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,
+      :width => 100, :height => 30)
+    @backwell.connect(SEL_COMMAND, method(:onCmdWell))
+
+    FXLabel.new(buttonFrame, "B&order\nColor well", :opts => JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+    @borderwell = FXColorWell.new(buttonFrame, FXColor::Black,
+      :opts => LAYOUT_CENTER_X|LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,
+      :width => 100, :height => 30)
+    @borderwell.connect(SEL_COMMAND, method(:onCmdWell))
+
+    FXLabel.new(buttonFrame, "&Text\nColor well", :opts => JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+    @textwell = FXColorWell.new(buttonFrame, FXColor::Black,
+      :opts => LAYOUT_CENTER_X|LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,
+      :width => 100, :height => 30)
+    @textwell.connect(SEL_COMMAND, method(:onCmdWell))
+
+    # Button to draw
+    FXButton.new(buttonFrame, "&Colors...\tPop the color dialog", nil,
+      colordlg, FXWindow::ID_SHOW,
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+
+    # Button to draw
+    saveBtn = FXButton.new(buttonFrame,
+      "Save Image...\tRead back image and save to file",
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+    saveBtn.connect(SEL_COMMAND, method(:onCmdRestore))
+
+    # Exit button
+    FXButton.new(buttonFrame, "E&xit\tQuit ImageApp", nil,
+      getApp(), FXApp::ID_QUIT,
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+
+    # Allocate the color arrays
+    imgWidth = 512
+    imgHeight = 50
+
+    # Create images with dithering
+    @grey = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_DITHER|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @red = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_DITHER|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @green = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_DITHER|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @blue = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_DITHER|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+
+    # Create image with nearest color instead of dithering
+    @grey_nodither = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_NEAREST|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @red_nodither = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_NEAREST|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @green_nodither = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_NEAREST|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @blue_nodither = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_NEAREST|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+
+    # Result image
+    @picture = FXBMPImage.new(getApp(), nil, IMAGE_SHMI|IMAGE_SHMP, 850, 600)
+
+    # Fill up the color-ramp byte arrays (strings)
+    grey_data = @grey.data
+    grey_nodither_data = @grey_nodither.data
+    red_data = @red.data
+    red_nodither_data = @red_nodither.data
+    green_data = @green.data
+    green_nodither_data = @green_nodither.data
+    blue_data = @blue.data
+    blue_nodither_data = @blue_nodither.data
+    (0...512).each { |x|
+      halfX = x >> 1
+      (0...50).each { |y|
+        z = (y << 9) + x
+        grey_data[z]  = FXRGB(halfX, halfX, halfX)
+        grey_nodither_data[z] = grey_data[z]
+        red_data[z]   = FXRGB(halfX, 0, 0)
+        red_nodither_data[z] = red_data[z]
+        green_data[z] = FXRGB(0, halfX, 0)
+        green_nodither_data[z] = green_data[z]
+        blue_data[z]  = FXRGB(0, 0, halfX)
+        blue_nodither_data[z] = blue_data[z]
+      }
+    }
+
+    # Make font
+    @font = FXFont.new(getApp(), "times", 36, FONTWEIGHT_BOLD)
+
+    # Make a tip
+    FXToolTip.new(getApp())
+  end
+
+  # Create and initialize
+  def create
+    # Create the windows
+    super
+
+    # Create images
+    @grey.create
+    @red.create
+    @green.create
+    @blue.create
+    @grey_nodither.create
+    @red_nodither.create
+    @green_nodither.create
+    @blue_nodither.create
+    @picture.create
+
+    # Create the font, too
+    @font.create
+
+    # Make the main window appear
+    show(PLACEMENT_SCREEN)
+
+    # Initial repaint
+    @canvas.update
+  end
+
+  def onCanvasRepaint(sender, sel, event)
+    if event.synthetic?
+      dc = FXDCWindow.new(@picture)
+
+      # Erase the canvas, color comes from well
+      dc.foreground = @backwell.rgba
+
+      dc.fillRectangle(0, 0, @picture.width, @picture.height)
+
+      # Draw images
+      dc.drawImage(@grey, 10, 10)
+      dc.drawImage(@grey_nodither, 10, 60)
+      dc.drawImage(@red, 10, 130)
+      dc.drawImage(@red_nodither, 10, 180)
+      dc.drawImage(@green, 10, 250)
+      dc.drawImage(@green_nodither, 10, 300)
+      dc.drawImage(@blue, 10, 370)
+      dc.drawImage(@blue_nodither, 10, 420)
+
+      # Draw patterns
+      dc.fillStyle = FILL_OPAQUESTIPPLED
+      dc.foreground = FXColor::Black
+      dc.background = FXColor::White
+      (STIPPLE_0..STIPPLE_16).each do |pat|
+        dc.stipple = pat
+        dc.fillRectangle(10 + (512*pat)/17, 490, 31, 50)
+      end
+      dc.fillStyle = FILL_SOLID
+
+      # Draw borders
+      dc.foreground = @borderwell.rgba
+      dc.drawRectangle(10, 10, 512, 50)
+      dc.drawRectangle(10, 60, 512, 50)
+
+      dc.drawRectangle(10, 130, 512, 50)
+      dc.drawRectangle(10, 180, 512, 50)
+
+      dc.drawRectangle(10, 250, 512, 50)
+      dc.drawRectangle(10, 300, 512, 50)
+
+      dc.drawRectangle(10, 370, 512, 50)
+      dc.drawRectangle(10, 420, 512, 50)
+
+      dc.drawRectangle(10, 490, 512, 50)
+
+      # Draw text
+      dc.font = @font
+      dc.foreground = @textwell.rgba
+      dc.drawText(540,  60, "Grey")
+      dc.drawText(540, 180, "Red")
+      dc.drawText(540, 300, "Green")
+      dc.drawText(540, 420, "Blue")
+      dc.drawText(540, 540, "Patterns")
+
+      #
+      # Call end() to unlock the drawing surface and flush out
+      # the pending drawing commands.
+      #
+      dc.end
+    end
+
+    # Now repaint the screen
+    sdc = FXDCWindow.new(@canvas, event)
+
+    # Clear whole thing
+    sdc.foreground = @backwell.rgba
+    sdc.fillRectangle(0, 0, @canvas.width, @canvas.height)
+
+    # Paint image
+    sdc.drawImage(@picture, 0, 0)
+
+    #
+    # Call end() to unlock the drawing surface and flush out
+    # the pending drawing commands.
+    #
+    sdc.end
+  end
+
+  # Color well got changed
+  def onCmdWell(sender, sel, ptr)
+    @canvas.update
+  end
+
+  # Restore image from offscreen pixmap
+  def onCmdRestore(sender, sel, ptr)
+    saveDialog = FXFileDialog.new(self, "Save as BMP")
+    if saveDialog.execute != 0
+      FXFileStream.open(saveDialog.filename, FXStreamSave) do |outfile|
+        @picture.restore
+        @picture.savePixels(outfile)
+      end
+    end
+    return 1
+  end
+end
+
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("Image", "FoxTest")
+
+  # Make the main window
+  ImageWindow.new(application)
+
+  # Create the application window and resources
+  application.create
+
+  # Run the application
+  application.run
+end

data/examples/imageviewer.rb

@@ -0,0 +1,509 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class ImageWindow < FXMainWindow
+
+  include Responder
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "FOX Image Viewer: - untitled", :opts => DECOR_ALL, :width => 850, :height => 600)
+
+    # Recently used files list
+    @mrufiles = FXRecentFiles.new
+
+    # Make some icons
+    fileopenicon = getIcon("fileopen.png")
+    filesaveicon = getIcon("filesave.png")
+    cuticon = getIcon("cut.png")
+    copyicon = getIcon("copy.png")
+    pasteicon = getIcon("paste.png")
+    uplevelicon = getIcon("tbuplevel.png")
+    paletteicon = getIcon("colorpal.png")
+
+    # Make color dialog
+    colordlg = FXColorDialog.new(self, "Color Dialog")
+
+    # Make menu bar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X|FRAME_RAISED)
+
+    # Status bar
+    statusbar = FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+
+    # Docking sites
+    topDockSite = FXDockSite.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+    FXDockSite.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X)
+    FXDockSite.new(self, LAYOUT_SIDE_LEFT|LAYOUT_FILL_Y)
+    FXDockSite.new(self, LAYOUT_SIDE_RIGHT|LAYOUT_FILL_Y)
+
+    # Splitter
+    splitter = FXSplitter.new(self, (LAYOUT_SIDE_TOP|LAYOUT_FILL_X|
+      LAYOUT_FILL_Y| SPLITTER_TRACKING|SPLITTER_VERTICAL|SPLITTER_REVERSED))
+
+    # Tool bar is docked inside the top one for starters
+    toolbarShell = FXToolBarShell.new(self)
+    toolbar = FXToolBar.new(topDockSite, toolbarShell,
+      PACK_UNIFORM_WIDTH|PACK_UNIFORM_HEIGHT|FRAME_RAISED|LAYOUT_FILL_X)
+    FXToolBarGrip.new(toolbar, toolbar, FXToolBar::ID_TOOLBARGRIP, TOOLBARGRIP_DOUBLE)
+
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+
+    # Edit Menu
+    editmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Edit", nil, editmenu)
+
+    # Manipulation Menu
+    manipmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar,"&Manipulation", nil, manipmenu)
+
+    # View menu
+    viewmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&View", nil, viewmenu)
+
+    # Help menu
+    helpmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Help", nil, helpmenu, LAYOUT_RIGHT)
+
+    # Sunken border for image widget
+    imagebox = FXHorizontalFrame.new(splitter,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+
+    # Make image widget
+    @imageview = FXImageView.new(imagebox, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Sunken border for file list
+    @filebox = FXHorizontalFrame.new(splitter,
+      LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+
+    # Make file list
+    fileframe = FXHorizontalFrame.new(@filebox,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0, :hSpacing => 0, :vSpacing => 0)
+    @filelist = FXFileList.new(fileframe,
+      :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|ICONLIST_MINI_ICONS|ICONLIST_AUTOSIZE)
+    @filelist.connect(SEL_DOUBLECLICKED, method(:onCmdFileList))
+    FXButton.new(@filebox, "\tUp one level\tGo up to higher directory.",
+      uplevelicon, @filelist, FXFileList::ID_DIRECTORY_UP,
+      BUTTON_TOOLBAR|FRAME_RAISED|LAYOUT_FILL_Y)
+
+    # Toobar buttons: File manipulation
+    openBtn = FXButton.new(toolbar, "&Open\tOpen Image\tOpen image file.", fileopenicon,
+      :opts => ICON_ABOVE_TEXT|BUTTON_TOOLBAR|FRAME_RAISED)
+    openBtn.connect(SEL_COMMAND, method(:onCmdOpen))
+    saveBtn = FXButton.new(toolbar, "&Save\tSave Image\tSave image file.", filesaveicon,
+      :opts => ICON_ABOVE_TEXT|BUTTON_TOOLBAR|FRAME_RAISED)
+    saveBtn.connect(SEL_COMMAND, method(:onCmdSave))
+
+    # Toobar buttons: Editing
+    FXButton.new(toolbar, "Cut\tCut", cuticon,
+      :opts => ICON_ABOVE_TEXT|BUTTON_TOOLBAR|FRAME_RAISED)
+    FXButton.new(toolbar, "Copy\tCopy", copyicon,
+      :opts => ICON_ABOVE_TEXT|BUTTON_TOOLBAR|FRAME_RAISED)
+    FXButton.new(toolbar, "Paste\tPaste", pasteicon,
+      :opts => ICON_ABOVE_TEXT|BUTTON_TOOLBAR|FRAME_RAISED)
+
+    # Color
+    FXButton.new(toolbar, "&Colors\tColors\tDisplay color dialog.", paletteicon,
+      colordlg, FXWindow::ID_SHOW,
+      ICON_ABOVE_TEXT|BUTTON_TOOLBAR|FRAME_RAISED|LAYOUT_RIGHT)
+
+    # File Menu entries
+    FXMenuCommand.new(filemenu, "&Open...\tCtl-O\tOpen image file.", fileopenicon).connect(SEL_COMMAND, method(:onCmdOpen))
+    FXMenuCommand.new(filemenu, "&Save...\tCtl-S\tSave image file.", filesaveicon).connect(SEL_COMMAND, method(:onCmdSave))
+    FXMenuCommand.new(filemenu, "Dump", nil, getApp(), FXApp::ID_DUMP)
+
+    # Recent file menu; this automatically hides if there are no files
+    sep1 = FXMenuSeparator.new(filemenu)
+    sep1.target = @mrufiles
+    sep1.selector = FXRecentFiles::ID_ANYFILES
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_1)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_2)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_3)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_4)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_5)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_6)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_7)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_8)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_9)
+    FXMenuCommand.new(filemenu, nil, nil, @mrufiles, FXRecentFiles::ID_FILE_10)
+    FXMenuCommand.new(filemenu, "&Clear Recent Files", nil,
+      @mrufiles, FXRecentFiles::ID_CLEAR)
+    sep2 = FXMenuSeparator.new(filemenu)
+    sep2.target = @mrufiles
+    sep2.selector = FXRecentFiles::ID_ANYFILES
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q").connect(SEL_COMMAND, method(:onCmdQuit))
+
+    # Edit Menu entries
+    FXMenuCommand.new(editmenu, "&Undo\tCtl-Z\tUndo last change.")
+    FXMenuCommand.new(editmenu, "&Redo\tCtl-R\tRedo last undo.")
+    FXMenuCommand.new(editmenu, "&Copy\tCtl-C\tCopy selection to clipboard.", copyicon)
+    FXMenuCommand.new(editmenu, "C&ut\tCtl-X\tCut selection to clipboard.", cuticon)
+    FXMenuCommand.new(editmenu, "&Paste\tCtl-V\tPaste from clipboard.", pasteicon)
+    FXMenuCommand.new(editmenu, "&Delete\t\tDelete selection.")
+
+    # Manipulation Menu entries
+    rotate90Cmd = FXMenuCommand.new(manipmenu, "Rotate 90\t\tRotate 90 degrees.")
+    rotate90Cmd.connect(SEL_COMMAND) { @imageview.image.rotate(90) }
+    rotate90Cmd.connect(SEL_UPDATE, method(:onUpdImage))
+
+    rotate180Cmd = FXMenuCommand.new(manipmenu, "Rotate 180\t\tRotate 180 degrees.")
+    rotate180Cmd.connect(SEL_COMMAND) { @imageview.image.rotate(180) }
+    rotate180Cmd.connect(SEL_UPDATE, method(:onUpdImage))
+
+    rotate270Cmd = FXMenuCommand.new(manipmenu, "Rotate -90\t\tRotate -90 degrees.")
+    rotate270Cmd.connect(SEL_COMMAND) { @imageview.image.rotate(270) }
+    rotate270Cmd.connect(SEL_UPDATE, method(:onUpdImage))
+
+    mirrorHorCmd = FXMenuCommand.new(manipmenu, "Mirror Hor.\t\tMirror Horizontally.")
+    mirrorHorCmd.connect(SEL_COMMAND) { @imageview.image.mirror(true, false) }
+    mirrorHorCmd.connect(SEL_UPDATE, method(:onUpdImage))
+
+    mirrorVerCmd = FXMenuCommand.new(manipmenu, "Mirror Ver.\t\tMirror Vertically.")
+    mirrorVerCmd.connect(SEL_COMMAND) { @imageview.image.mirror(false, true) }
+    mirrorVerCmd.connect(SEL_UPDATE, method(:onUpdImage))
+
+    scaleCmd = FXMenuCommand.new(manipmenu, "Scale...\t\tScale image.")
+    scaleCmd.connect(SEL_COMMAND, method(:onCmdScale))
+    scaleCmd.connect(SEL_UPDATE, method(:onUpdImage))
+
+    cropCmd = FXMenuCommand.new(manipmenu, "Crop...\t\tCrop image.")
+    cropCmd.connect(SEL_COMMAND, method(:onCmdCrop))
+    cropCmd.connect(SEL_UPDATE, method(:onUpdImage))
+
+    # View Menu entries
+    FXMenuCheck.new(viewmenu, "File list\t\tDisplay file list.",
+      @filebox, FXWindow::ID_TOGGLESHOWN)
+    FXMenuCheck.new(viewmenu,
+      "Show hidden files\t\tShow hidden files and directories.",
+      @filelist, FXFileList::ID_TOGGLE_HIDDEN)
+    FXMenuSeparator.new(viewmenu)
+    FXMenuRadio.new(viewmenu,
+      "Show small icons\t\tDisplay directory with small icons.",
+      @filelist, FXFileList::ID_SHOW_MINI_ICONS)
+    FXMenuRadio.new(viewmenu,
+      "Show big icons\t\tDisplay directory with big icons.",
+      @filelist, FXFileList::ID_SHOW_BIG_ICONS)
+    FXMenuRadio.new(viewmenu,
+      "Show details view\t\tDisplay detailed directory listing.",
+      @filelist, FXFileList::ID_SHOW_DETAILS)
+    FXMenuSeparator.new(viewmenu)
+    FXMenuRadio.new(viewmenu, "Rows of icons\t\tView row-wise.",
+      @filelist, FXFileList::ID_ARRANGE_BY_ROWS)
+    FXMenuRadio.new(viewmenu, "Columns of icons\t\tView column-wise.",
+      @filelist,FXFileList::ID_ARRANGE_BY_COLUMNS)
+    FXMenuSeparator.new(viewmenu)
+    FXMenuCheck.new(viewmenu, "Toolbar\t\tDisplay toolbar.",
+      toolbar, FXWindow::ID_TOGGLESHOWN)
+
+    FXMenuCommand.new(viewmenu, "Float toolbar\t\tUndock the toolbar.", nil, toolbar, FXToolBar::ID_DOCK_FLOAT)
+    FXMenuCommand.new(viewmenu, "Dock toolbar top\t\tDock the toolbar on the top.", nil, toolbar, FXToolBar::ID_DOCK_TOP)
+    FXMenuCommand.new(viewmenu, "Dock toolbar left\t\tDock the toolbar on the left.", nil, toolbar, FXToolBar::ID_DOCK_LEFT)
+    FXMenuCommand.new(viewmenu, "Dock toolbar right\t\tDock the toolbar on the right.", nil, toolbar, FXToolBar::ID_DOCK_RIGHT)
+    FXMenuCommand.new(viewmenu, "Dock toolbar bottom\t\tDock the toolbar on the bottom.", nil, toolbar, FXToolBar::ID_DOCK_BOTTOM)
+
+    FXMenuSeparator.new(viewmenu)
+
+    FXMenuCheck.new(viewmenu, "Status line\t\tDisplay status line.",
+      statusbar, FXWindow::ID_TOGGLESHOWN)
+
+    # Help Menu entries
+    FXMenuCommand.new(helpmenu, "&About FOX...").connect(SEL_COMMAND) {
+      FXMessageBox.new(self, "About Image Viewer",
+        "Image Viewer demonstrates the FOX ImageView widget.\n\n" +
+        "Using the FOX C++ GUI Library (http://www.fox-toolkit.org)\n\n" +
+        "Copyright (C) 2000 Jeroen van der Zijp (jeroen@fox-toolkit.org)", nil,
+        MBOX_OK|DECOR_TITLE|DECOR_BORDER).execute
+    }
+
+    # Make a tool tip
+    FXToolTip.new(getApp(), TOOLTIP_NORMAL)
+
+    # Recent files
+    @mrufiles.connect(SEL_COMMAND) do |sender, sel, filename|
+      @filename = filename
+      @filelist.currentFile = @filename
+      loadImage(@filename)
+    end
+
+    # Initialize file name and pattern for file dialog
+    @filename = "untitled"
+    @preferredFileFilter = 0
+  end
+
+  # Convenience function to construct a PNG icon
+  def getIcon(filename)
+    begin
+      filename = File.join("icons", filename)
+      icon = nil
+      File.open(filename, "rb") do |f|
+        icon = FXPNGIcon.new(getApp(), f.read)
+      end
+      icon
+    rescue
+      raise RuntimeError, "Couldn't load icon: #{filename}"
+    end
+  end
+
+  def hasExtension?(filename, ext)
+    File.basename(filename, ext) != File.basename(filename)
+  end
+
+  # Load the named image file
+  def loadImage(file)
+    img = nil
+    if hasExtension?(file, ".gif")
+      img = FXGIFImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    elsif hasExtension?(file, ".bmp")
+      img = FXBMPImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    elsif hasExtension?(file, ".xpm")
+      img = FXXPMImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    elsif hasExtension?(file, ".png")
+      img = FXPNGImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    elsif hasExtension?(file, ".jpg")
+      img = FXJPGImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    elsif hasExtension?(file, ".pcx")
+      img = FXPCXImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    elsif hasExtension?(file, ".tif")
+      img = FXTIFImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    elsif hasExtension?(file, ".tga")
+      img = FXTGAImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    elsif hasExtension?(file, ".ico")
+      img = FXICOImage.new(getApp(), nil, IMAGE_KEEP|IMAGE_SHMI|IMAGE_SHMP)
+    end
+
+    # Perhaps failed?
+    if img.nil?
+      FXMessageBox.error(self, MBOX_OK, "Error loading image",
+        "Unsupported image type: #{file}")
+      return
+    end
+
+    # Load it...
+    getApp().beginWaitCursor do
+      FXFileStream.open(file, FXStreamLoad) { |stream| img.loadPixels(stream) }
+      img.create
+      @imageview.image = img
+    end
+  end
+
+  # Save image to named file
+  def saveImage(file)
+    getApp().beginWaitCursor do
+      FXFileStream.open(file, FXStreamSave) { |stream| @imageview.image.savePixels(stream) }
+    end
+  end
+
+  # Open a new file
+  def onCmdOpen(sender, sel, ptr)
+    openDialog = FXFileDialog.new(self, "Open Image")
+    openDialog.filename = @filename
+    patterns = ["All Files (*)",
+                "GIF Image (*.gif)",
+                "BMP Image (*.bmp)",
+                "XPM Image (*.xpm)",
+                "PCX Image (*.pcx)",
+                "ICO Image (*.ico)",
+                "PNG Image (*.png)",
+                "JPEG Image (*.jpg)",
+                "TIFF Image (*.tif)",
+                "TARGA Image (*.tga)"
+    ]
+    openDialog.patternList = patterns
+    openDialog.currentPattern = @preferredFileFilter
+    if openDialog.execute != 0
+      @preferredFileFilter = openDialog.currentPattern
+      @filename = openDialog.filename
+      @filelist.currentFile = @filename
+      @mrufiles.appendFile(@filename)
+      loadImage(@filename)
+    end
+    return 1
+  end
+
+  # Save this file
+  def onCmdSave(sender, sel, ptr)
+    saveDialog = FXFileDialog.new(self, "Save Image")
+    if saveDialog.execute != 0
+      if File.exists? saveDialog.filename
+        if MBOX_CLICKED_NO == FXMessageBox.question(self, MBOX_YES_NO,
+          "Overwrite Image", "Overwrite existing image?")
+          return 1
+        end
+      end
+      @filename = saveDialog.filename
+      @filelist.currentFile = @filename
+      @mrufiles.appendFile(@filename)
+      saveImage(@filename)
+    end
+    return 1
+  end
+
+  # Quit the application
+  def onCmdQuit(sender, sel, ptr)
+    # Write new window size back to registry
+    getApp().reg().writeIntEntry("SETTINGS", "x", x)
+    getApp().reg().writeIntEntry("SETTINGS", "y", y)
+    getApp().reg().writeIntEntry("SETTINGS", "width", width)
+    getApp().reg().writeIntEntry("SETTINGS", "height", height)
+
+    # Height of file list
+    getApp().reg().writeIntEntry("SETTINGS", "fileheight", @filebox.height)
+
+    # Was file box shown?
+    getApp().reg().writeBoolEntry("SETTINGS", "filesshown", @filebox.shown)
+
+    # Current directory
+    getApp().reg().writeStringEntry("SETTINGS", "directory", @filelist.directory)
+
+    # Quit
+    getApp().exit(0)
+  end
+
+  # Command message from the file list
+  def onCmdFileList(sender, sel, index)
+    if index >= 0
+      if @filelist.isItemDirectory(index)
+        @filelist.directory = @filelist.getItemPathname(index)
+      elsif @filelist.isItemFile(index)
+        @filename = @filelist.getItemPathname(index)
+        @mrufiles.appendFile(@filename)
+        loadImage(@filename)
+      end
+    end
+    return 1
+  end
+
+  # Scale
+  def onCmdScale(sender, sel, ptr)
+    image = @imageview.image
+    sx = FXDataTarget.new(image.width)
+    sy = FXDataTarget.new(image.height)
+    scalepanel = FXDialogBox.new(self, "Scale Image To Size")
+    frame = FXHorizontalFrame.new(scalepanel,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(frame, "W:", nil, LAYOUT_CENTER_Y)
+    FXTextField.new(frame, 5, sx, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|FRAME_SUNKEN|FRAME_THICK|JUSTIFY_RIGHT)
+    FXLabel.new(frame, "H:", nil, LAYOUT_CENTER_Y)
+    FXTextField.new(frame, 5, sy, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|FRAME_SUNKEN|FRAME_THICK|JUSTIFY_RIGHT)
+    FXButton.new(frame, "Cancel", nil, scalepanel, FXDialogBox::ID_CANCEL,
+      LAYOUT_CENTER_Y|FRAME_RAISED|FRAME_THICK,
+      :padLeft => 20, :padRight => 20, :padTop => 4, :padBottom => 4)
+    FXButton.new(frame, "OK", nil, scalepanel, FXDialogBox::ID_ACCEPT,
+      LAYOUT_CENTER_Y|FRAME_RAISED|FRAME_THICK,
+      :padLeft => 30, :padRight => 30, :padTop => 4, :padBottom => 4)
+    return 1 if (scalepanel.execute == 0)
+    return 1 if (sx.value < 1 || sy.value < 1)
+    image.scale(sx.value, sy.value)
+    @imageview.image = image
+  end
+
+  # Crop
+  def onCmdCrop(sender, sel, ptr)
+    image = @imageview.image
+    cx = FXDataTarget.new(0)
+    cy = FXDataTarget.new(0)
+    cw = FXDataTarget.new(image.width)
+    ch = FXDataTarget.new(image.height)
+    croppanel = FXDialogBox.new(self, "Crop image")
+    frame = FXHorizontalFrame.new(croppanel,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(frame, "X:", nil, LAYOUT_CENTER_Y)
+    FXTextField.new(frame, 5, cx, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|FRAME_SUNKEN|FRAME_THICK|JUSTIFY_RIGHT)
+    FXLabel.new(frame, "Y:", nil, LAYOUT_CENTER_Y)
+    FXTextField.new(frame, 5, cy, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|FRAME_SUNKEN|FRAME_THICK|JUSTIFY_RIGHT)
+    FXLabel.new(frame, "W:", nil, LAYOUT_CENTER_Y)
+    FXTextField.new(frame, 5, cw, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|FRAME_SUNKEN|FRAME_THICK|JUSTIFY_RIGHT)
+    FXLabel.new(frame, "H:", nil, LAYOUT_CENTER_Y)
+    FXTextField.new(frame, 5, ch, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|FRAME_SUNKEN|FRAME_THICK|JUSTIFY_RIGHT)
+    FXButton.new(frame, "Cancel", nil, croppanel, FXDialogBox::ID_CANCEL,
+      LAYOUT_CENTER_Y|FRAME_RAISED|FRAME_THICK,
+      :padLeft => 20, :padRight => 20, :padTop => 4, :padBottom => 4)
+    FXButton.new(frame, "OK", nil, croppanel, FXDialogBox::ID_ACCEPT,
+      LAYOUT_CENTER_Y|FRAME_RAISED|FRAME_THICK,
+      :padLeft => 30, :padRight => 30, :padTop => 4, :padBottom => 4)
+    return 1 if (croppanel.execute == 0)
+    return 1 if (cx.value < 0 || cy.value < 0 ||
+        cx.value+cw.value > image.width ||
+        cy.value+ch.value > image.height)
+    image.crop(cx.value, cy.value, cw.value, ch.value)
+    @imageview.image = image
+  end
+
+  # Update image
+  def onUpdImage(sender, sel, ptr)
+    if @imageview.image
+      sender.handle(self, FXSEL(SEL_COMMAND, FXWindow::ID_ENABLE), nil)
+    else
+      sender.handle(self, FXSEL(SEL_COMMAND, FXWindow::ID_DISABLE), nil)
+    end
+  end
+
+  # Create and show window
+  def create
+    # Get size, etc. from registry
+    xx = getApp().reg().readIntEntry("SETTINGS", "x", 0)
+    yy = getApp().reg().readIntEntry("SETTINGS", "y", 0)
+    ww = getApp().reg().readIntEntry("SETTINGS", "width", 850)
+    hh = getApp().reg().readIntEntry("SETTINGS", "height", 600)
+
+    fh = getApp().reg().readIntEntry("SETTINGS", "fileheight", 100)
+    fs = getApp().reg().readBoolEntry("SETTINGS", "filesshown", true)
+
+    dir = getApp().reg().readStringEntry("SETTINGS", "directory", "~")
+
+    # Starting directory for the files list
+    @filelist.directory = dir
+
+    # Height of files list
+    @filebox.height = fh
+
+    # Is it visible right now?
+    if !fs
+      @filebox.hide
+    end
+
+    # Reposition window to specified x, y, w and h
+    position(xx, yy, ww, hh)
+
+    # Create and show
+    super   # i.e. FXMainWindow::create()
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("ImageViewer", "FoxTest")
+
+  # Make window
+  window = ImageWindow.new(application)
+
+  # Handle interrupts to terminate program gracefully
+  application.addSignal("SIGINT", window.method(:onCmdQuit))
+
+  # Create it
+  application.create
+
+  # Passed image file?
+  if ARGV.length > 0
+    window.loadImage(ARGV[0])
+  end
+
+  # Run
+  application.run
+end
+