fxruby 1.6.14-universal-darwin-9

data/examples/mditest.rb

@@ -0,0 +1,180 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/colors'
+
+include Fox
+
+TYGER = <<END_OF_POEM
+The Tyger
+
+Tyger! Tyger! burning bright
+In the forests of the night
+What immortal hand or eye
+Could frame thy fearful symmetry?
+
+In what distant deeps or skies
+Burnt the fire of thine eyes?
+On what wings dare he aspire?
+What the hand dare seize the fire?
+
+And what shoulder, and what art,
+Could twist the sinews of thy heart,
+And when thy heart began to beat,
+What dread hand? and what dread feet?
+
+What the hammer? what the chain?
+In what furnace was thy brain?
+What the anvil? what dread grasp
+Dare its deadly terrors clasp?
+
+When the stars threw down their spears,
+And water'd heaven with their tears,
+Did he smile his work to see?
+Did he who made the Lamb make thee?
+
+Tyger! Tyger! burning bright
+In the forests of the night,
+What immortal hand or eye,
+Dare frame thy fearful symmetry?
+
+
+
+               - William Blake
+END_OF_POEM
+
+class MDITestWindow  < FXMainWindow
+
+  def initialize(app)
+    # Invoke base class initialize method first
+    super(app, "MDI Widget Test", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Create the font
+    @font = FXFont.new(getApp(), "courier", 15, FONTWEIGHT_BOLD)
+  
+    # 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)
+  
+    # MDI Client
+    @mdiclient = FXMDIClient.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  
+    # Icon for MDI Child
+    @mdiicon = nil
+    File.open(File.join("icons", "penguin.png"), "rb") do |f|
+      @mdiicon = FXPNGIcon.new(getApp(), f.read)
+    end
+
+    # Make MDI Menu
+    @mdimenu = FXMDIMenu.new(self, @mdiclient)
+  
+    # MDI buttons in menu:- note the message ID's!!!!!
+    # Normally, MDI commands are simply sensitized or desensitized;
+    # Under the menubar, however, they're hidden if the MDI Client is
+    # not maximized.  To do this, they must have different ID's.
+    FXMDIWindowButton.new(menubar, @mdimenu, @mdiclient, FXMDIClient::ID_MDI_MENUWINDOW,
+      LAYOUT_LEFT)
+    FXMDIDeleteButton.new(menubar, @mdiclient, FXMDIClient::ID_MDI_MENUCLOSE,
+      FRAME_RAISED|LAYOUT_RIGHT)
+    FXMDIRestoreButton.new(menubar, @mdiclient, FXMDIClient::ID_MDI_MENURESTORE,
+      FRAME_RAISED|LAYOUT_RIGHT)
+    FXMDIMinimizeButton.new(menubar, @mdiclient,
+      FXMDIClient::ID_MDI_MENUMINIMIZE, FRAME_RAISED|LAYOUT_RIGHT)
+  
+    # Create a few test windows to get started
+    mdichild = createTestWindow(10, 10, 400, 300)
+    @mdiclient.setActiveChild(mdichild)
+    createTestWindow(20, 20, 400, 300)
+    createTestWindow(30, 30, 400, 300)
+  
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    newCmd = FXMenuCommand.new(filemenu, "&New\tCtl-N\tCreate new document.")
+    newCmd.connect(SEL_COMMAND, method(:onCmdNew))
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q\tQuit application.", nil,
+      getApp(), FXApp::ID_QUIT, 0)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+      
+    # Window menu
+    windowmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(windowmenu, "Tile &Horizontally", nil,
+      @mdiclient, FXMDIClient::ID_MDI_TILEHORIZONTAL)
+    FXMenuCommand.new(windowmenu, "Tile &Vertically", nil,
+      @mdiclient, FXMDIClient::ID_MDI_TILEVERTICAL)
+    FXMenuCommand.new(windowmenu, "C&ascade", nil,
+      @mdiclient, FXMDIClient::ID_MDI_CASCADE)
+    FXMenuCommand.new(windowmenu, "&Close", nil,
+      @mdiclient, FXMDIClient::ID_MDI_CLOSE)
+    sep1 = FXMenuSeparator.new(windowmenu)
+    sep1.setTarget(@mdiclient)
+    sep1.setSelector(FXMDIClient::ID_MDI_ANY)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_1)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_2)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_3)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_4)
+    FXMenuCommand.new(windowmenu, "&Others...", nil, @mdiclient, FXMDIClient::ID_MDI_OVER_5)
+    FXMenuTitle.new(menubar,"&Window", nil, windowmenu)
+    
+    # Help menu
+    helpmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(helpmenu, "&About FOX...").connect(SEL_COMMAND) {
+      FXMessageBox.information(self, MBOX_OK, "About MDI Test",
+        "Test of the FOX MDI Widgets\nWritten by Jeroen van der Zijp")
+    }
+    FXMenuTitle.new(menubar, "&Help", nil, helpmenu, LAYOUT_RIGHT)
+  end
+
+  # Create a new MDI child window
+  def createTestWindow(x, y, w, h)
+    mdichild = FXMDIChild.new(@mdiclient, "Child", @mdiicon, @mdimenu,
+      0, x, y, w, h)
+    scrollwindow = FXScrollWindow.new(mdichild, 0)
+    scrollwindow.verticalScrollBar.setLine(@font.fontHeight)
+    btn = FXButton.new(scrollwindow, TYGER,
+      :opts => LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, :width => 600, :height => 1000)
+    btn.font = @font
+    btn.backColor = FXColor::White
+    mdichild
+  end
+
+  # New
+  def onCmdNew(sender, sel, ptr)
+    mdichild = createTestWindow(20, 20, 300, 200)
+    mdichild.create
+    return 1
+  end
+
+  # Start
+  def create
+    super
+
+    # At the time the first three MDI windows are constructed, we don't
+    # yet know the font height and so we cannot accurately set the line
+    # height for the vertical scrollbar. Now that the real font has been
+    # created, we can go back and fix the scrollbar line heights for these
+    # windows.
+    @font.create
+    @mdiclient.each_child do |mdichild|
+      mdichild.contentWindow.verticalScrollBar.setLine(@font.fontHeight)
+    end
+
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("MDIApp", "FoxTest")
+  
+  # Make window
+  MDITestWindow.new(application)
+  
+  # Create app
+  application.create
+  
+  # Run
+  application.run
+end

data/examples/pig.rb

@@ -0,0 +1,77 @@
+#
+# This is a FOX version of Thomas and Hunt's timeless classic,
+# the Pig It! example (from the "Ruby/Tk" chapter of "Programming
+# Ruby".
+#
+
+require 'fox16'
+
+include Fox
+
+class PigBox < FXMainWindow
+  def pig(word)
+    leadingCap = word =~ /^A-Z/
+    word.downcase!
+    res = case word
+      when /^aeiouy/
+        word+"way"
+      when /^([^aeiouy]+)(.*)/
+        $2+$1+"ay"
+      else
+        word
+    end
+    leadingCap ? res.capitalize : res
+  end
+
+  def showPig
+    @text.value = @text.value.split.collect{|w| pig(w)}.join(" ")
+  end
+
+  def initialize(app)
+    # Initialize base class
+    super(app, "Pig")
+    
+    @text = FXDataTarget.new("")
+    
+    top = FXVerticalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y) do |theFrame|
+      theFrame.padLeft = 10
+      theFrame.padRight = 10
+      theFrame.padBottom = 10
+      theFrame.padTop = 10
+      theFrame.vSpacing = 20
+    end
+    
+    p = proc { showPig }
+    
+    FXLabel.new(top, 'Enter Text:') do |theLabel|
+      theLabel.layoutHints = LAYOUT_FILL_X
+    end
+    
+    FXTextField.new(top, 20, @text, FXDataTarget::ID_VALUE) do |theTextField|
+      theTextField.layoutHints = LAYOUT_FILL_X
+      theTextField.setFocus()
+    end
+    
+    FXButton.new(top, 'Pig It') do |pigButton|
+      pigButton.connect(SEL_COMMAND, p)
+      pigButton.layoutHints = LAYOUT_CENTER_X
+    end
+    
+    FXButton.new(top, 'Exit') do |exitButton|
+      exitButton.connect(SEL_COMMAND) { exit }
+      exitButton.layoutHints = LAYOUT_CENTER_X
+    end
+  end
+  
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  app = FXApp.new("Pig It", "FXRuby")
+  PigBox.new(app)
+  app.create
+  app.run
+end

data/examples/raabrowser.rb

@@ -0,0 +1,122 @@
+require 'fox16'
+require 'cgi'
+require 'soap/wsdlDriver'
+
+include Fox
+
+class RAABrowserWindow < FXMainWindow
+  
+  def initialize(app)
+    # Initialize base class
+    super(app, "Ruby Application Archive", :opts => DECOR_ALL, :width => 600, :height => 600)
+
+    # Contents
+    contents = FXHorizontalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Horizontal splitter
+    splitter = FXSplitter.new(contents, (LAYOUT_SIDE_TOP|LAYOUT_FILL_X|
+    LAYOUT_FILL_Y|SPLITTER_TRACKING|SPLITTER_HORIZONTAL))
+
+    # Create a sunken frame to hold the tree list
+    groupbox = FXGroupBox.new(splitter, "Contents",
+    LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_GROOVE)
+    frame = FXHorizontalFrame.new(groupbox,
+    LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK)
+
+    # Create the empty tree list
+    @treeList = FXTreeList.new(frame,
+      :opts => TREELIST_BROWSESELECT|TREELIST_SHOWS_LINES|TREELIST_SHOWS_BOXES|TREELIST_ROOT_BOXES|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @treeList.connect(SEL_COMMAND) do |sender, sel, item|
+      if @treeList.isItemLeaf(item)
+        getApp().beginWaitCursor do
+          begin
+            gem = @raa.gem(item.text)
+            @category.value = gem.category.major + "/" + gem.category.minor
+            @projectName.value = gem.project.name
+            @version.value = gem.project.version
+            @status.value = gem.project.status
+            @lastUpdate.value = gem.updated.strftime("%F %T GMT")
+            @owner.value = "#{gem.owner.name} (#{gem.owner.email.to_s})"
+            @homepage.value = gem.project.url.to_s
+            @download.value = gem.project.download.to_s
+            @license.value = gem.project.license
+            @description.value = CGI::unescapeHTML(gem.project.description).gsub(/\r\n/, "\n")
+          rescue SOAP::PostUnavailableError => ex
+            getApp().endWaitCursor
+            FXMessageBox.error(self, MBOX_OK, "SOAP Error", ex.message)
+          end
+        end
+      end
+    end
+
+    # Set up data targets for the product-specific information
+    @category = FXDataTarget.new("")
+    @projectName = FXDataTarget.new("")
+    @version = FXDataTarget.new("")
+    @status = FXDataTarget.new("")
+    @lastUpdate = FXDataTarget.new("")
+    @owner = FXDataTarget.new("")
+    @homepage = FXDataTarget.new("")
+    @download = FXDataTarget.new("")
+    @license = FXDataTarget.new("")
+    @description = FXDataTarget.new("")
+    
+    # Information appears on the right-hand side
+    infoFrame = FXVerticalFrame.new(splitter, LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_RIGHT|FRAME_SUNKEN|FRAME_THICK)
+
+    infoBox = FXGroupBox.new(infoFrame, "Info", GROUPBOX_NORMAL|LAYOUT_FILL_X|FRAME_GROOVE)
+    infoMatrix = FXMatrix.new(infoBox, 2, MATRIX_BY_COLUMNS|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(infoMatrix, "Category:")
+    FXTextField.new(infoMatrix, 20, @category, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Project name:")
+    FXTextField.new(infoMatrix, 20, @projectName, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Version:")
+    FXTextField.new(infoMatrix, 20, @version, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Status:")
+    FXTextField.new(infoMatrix, 20, @status, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Last update:")
+    FXTextField.new(infoMatrix, 20, @lastUpdate, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Owner:")
+    FXTextField.new(infoMatrix, 20, @owner, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Homepage:")
+    FXTextField.new(infoMatrix, 20, @homepage, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Download:")
+    FXTextField.new(infoMatrix, 20, @download, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "License:")
+    FXTextField.new(infoMatrix, 20, @license, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+
+    descriptionBox = FXGroupBox.new(infoFrame, "Description", GROUPBOX_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_GROOVE)
+    descriptionFrame = FXHorizontalFrame.new(descriptionBox, FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXText.new(descriptionFrame, @description, FXDataTarget::ID_VALUE, TEXT_READONLY|TEXT_WORDWRAP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+      
+    # Initialize the service
+    @raa = SOAP::WSDLDriverFactory.new("http://www2.ruby-lang.org/xmlns/soap/interface/RAA/0.0.4/").create_rpc_driver
+    
+    # Set up the product tree list
+    @productTree = @raa.tree_by_category
+    @productTree.keys.sort.each do |sectionName|
+      sectionHash = @productTree[sectionName]
+      sectionItem = @treeList.appendItem(nil, sectionName)
+      sectionHash.keys.sort.each do |categoryName|
+        categoryArray = sectionHash[categoryName]
+        categoryItem = @treeList.appendItem(sectionItem, categoryName)
+        categoryArray.each do |productName|
+          productItem = @treeList.appendItem(categoryItem, productName)
+        end
+      end
+    end
+  end
+  
+  def create
+    super
+    @treeList.parent.parent.setWidth(@treeList.font.getTextWidth('M'*24))
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  app = FXApp.new("RAABrowser", "FoxTest")
+  RAABrowserWindow.new(app)
+  app.create
+  app.run
+end

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