fxruby 1.6.20-x86-linux

data/examples/shutter.rb

@@ -0,0 +1,158 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+GORTS_BLURB = "Icons courtesy of Gort's Icons:\nhttp://www.forrestwalter.com/icons"
+
+class ShutterItem < FXShutterItem
+  def initialize(p, text, icon=nil, opts=0)
+    super(p, text, icon, opts|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT, :padding => 10, :hSpacing => 10, :vSpacing => 10)
+    button.padTop = 2
+    button.padBottom = 2
+  end
+end
+
+class ShutterButton < FXButton
+  def initialize(p, txt, ic=nil)
+    super(p, txt, ic, :opts => BUTTON_TOOLBAR|TEXT_BELOW_ICON|FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT)
+    self.backColor = p.backColor
+    self.textColor = FXRGB(255, 255, 255)
+  end
+end
+
+class ShutterWindow < FXMainWindow
+
+  # This is just a helper function that loads an ICO file from disk
+  # and constructs and returns a ICO icon object.
+
+  def loadIcon(filename)
+    begin
+      filename = File.join("icons", filename)
+      icon = nil
+      File.open(filename, "rb") do |f|
+        icon = FXICOIcon.new(getApp(), f.read)
+      end
+      icon
+    rescue
+      raise RuntimeError, "Couldn't load icon: #{filename}"
+    end
+  end
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "Look Out!", :opts => DECOR_ALL, :width => 600, :height => 600)
+
+    # Menubar along the top
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+    
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "Quit\tCtl-Q", nil, getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+
+    # Edit menu
+    editmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Edit", nil, editmenu)
+
+    # View menu
+    viewmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&View", nil, viewmenu)
+
+    # Favorites menu
+    favmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "Fav&orites", nil, favmenu)
+
+    # Tools menu
+    toolsmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Tools", nil, toolsmenu)
+
+    # Actions menu
+    actionsmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Actions", nil, actionsmenu)
+
+    # Help menu
+    helpmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Help", nil, helpmenu)
+
+    # Status bar along the bottom
+    status = FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+
+    # Main contents area is split left-to-right
+    splitter = FXSplitter.new(self, (LAYOUT_SIDE_TOP|LAYOUT_FILL_X|
+      LAYOUT_FILL_Y|SPLITTER_TRACKING))
+
+    # Shutter area on the left
+    @shutter = FXShutter.new(splitter,
+      :opts => FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padding => 0, :hSpacing => 0, :vSpacing => 0)
+    
+    fatBot = loadIcon("FatBot.ico")
+    angryGuy = loadIcon("AngryGuyInBunnySuit.ico")
+    sawBlade = loadIcon("SawBlade.ico")
+    redMacOS = loadIcon("RedMacOS.ico")
+    leGoon = loadIcon("LeGoon.ico")
+    flippedySwitch = loadIcon("FlippedySwitch.ico")
+    net = loadIcon("Net.ico")
+    
+    shutterItem = ShutterItem.new(@shutter, "Lookout Shortcuts", nil, LAYOUT_FILL_Y)
+    ShutterButton.new(shutterItem.content, "Lookout Today", fatBot).connect(SEL_COMMAND) { @switcher.current = 0 }
+    ShutterButton.new(shutterItem.content, "Inbox", angryGuy).connect(SEL_COMMAND) { @switcher.current = 1 }
+    ShutterButton.new(shutterItem.content, "Calendar", sawBlade).connect(SEL_COMMAND) { @switcher.current = 2 }
+    ShutterButton.new(shutterItem.content, "Contacts", redMacOS).connect(SEL_COMMAND) { @switcher.current = 3 }
+    ShutterButton.new(shutterItem.content, "Tasks", leGoon).connect(SEL_COMMAND) { @switcher.current = 4 }
+    ShutterButton.new(shutterItem.content, "Notes", flippedySwitch).connect(SEL_COMMAND) { @switcher.current = 5 }
+    ShutterButton.new(shutterItem.content, "Deleted Items", net).connect(SEL_COMMAND) { @switcher.current = 6 }
+  
+    shutterItem = ShutterItem.new(@shutter, "My Shortcuts")
+    ShutterButton.new(shutterItem.content, "Drafts", fatBot).connect(SEL_COMMAND) { @switcher.current = 7 }
+    ShutterButton.new(shutterItem.content, "Outbox", angryGuy).connect(SEL_COMMAND) { @switcher.current = 8 }
+    ShutterButton.new(shutterItem.content, "Sent Items", sawBlade).connect(SEL_COMMAND) { @switcher.current = 9 }
+    ShutterButton.new(shutterItem.content, "Journal", redMacOS).connect(SEL_COMMAND) { @switcher.current = 10 }
+    ShutterButton.new(shutterItem.content, "Lookout Update", flippedySwitch).connect(SEL_COMMAND) { @switcher.current = 11 }
+  
+    shutterItem = ShutterItem.new(@shutter, "Other Shortcuts")
+    ShutterButton.new(shutterItem.content, "My Computer", angryGuy).connect(SEL_COMMAND) { @switcher.current = 12 }
+    ShutterButton.new(shutterItem.content, "My Documents", net).connect(SEL_COMMAND) { @switcher.current = 13 }
+    ShutterButton.new(shutterItem.content, "Favorites", leGoon).connect(SEL_COMMAND) { @switcher.current = 14 }
+      
+    # Right pane is a switcher
+    # For a real application, each panel in the switcher would have real, working contents...
+    @switcher = FXSwitcher.new(splitter,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y, :padding => 0)
+
+    FXLabel.new(@switcher,
+      "Lookout Today!\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Inbox\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Calendar\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Contacts\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Tasks\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Notes\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Deleted Items\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    FXLabel.new(@switcher, "Drafts\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Outbox\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Sent Items\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Journal\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Lookout Update\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    FXLabel.new(@switcher, "My Computer\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "My Documents\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Favorites\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  end
+
+  def create
+    super
+    @shutter.width = 1.25*@shutter.width
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  application = FXApp.new("Shutter", "FoxTest")
+  ShutterWindow.new(application)
+  application.create
+  application.run
+end

data/examples/splitter.rb

@@ -0,0 +1,211 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class SplitterWindow < FXMainWindow
+
+  # Convenience function to load & construct an icon
+  def makeIcon(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 initialize(app)
+    # Do base class initialize first
+    super(app, "Splitter Test", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Construct some icons we'll use
+    folder_open   = makeIcon("minifolderopen.png")
+    folder_closed = makeIcon("minifolder.png")
+    doc           = makeIcon("minidoc.png")
+
+    # Menu bar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+    
+    # Status bar
+    status = FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+    
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "Quit\tCtl-Q", nil, getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+    
+    # Main window interior
+    @splitter = FXSplitter.new(self, (LAYOUT_SIDE_TOP|LAYOUT_FILL_X|
+      LAYOUT_FILL_Y|SPLITTER_REVERSED|SPLITTER_TRACKING))
+    group1 = FXVerticalFrame.new(@splitter,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y, :padding => 0)
+    group2 = FXVerticalFrame.new(@splitter,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    group3 = FXVerticalFrame.new(@splitter,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  
+    # Mode menu
+    modemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(modemenu, "Reverse\t\tReverse split order").connect(SEL_COMMAND) {
+      @splitter.splitterStyle |= SPLITTER_REVERSED
+    }
+    FXMenuCommand.new(modemenu, "Normal\t\tNormal split order").connect(SEL_COMMAND) {
+      @splitter.splitterStyle &= ~SPLITTER_REVERSED
+    }
+    FXMenuCommand.new(modemenu, "Horizontal\t\tHorizontal split").connect(SEL_COMMAND) {
+      @splitter.splitterStyle &= ~SPLITTER_VERTICAL
+    }
+    FXMenuCommand.new(modemenu, "Vertical\t\tVertical split").connect(SEL_COMMAND) {
+      @splitter.splitterStyle |= SPLITTER_VERTICAL
+    }
+    trackingBtn = FXMenuCheck.new(modemenu, "Tracking\t\tToggle continuous tracking mode")
+    trackingBtn.connect(SEL_COMMAND, method(:onCmdTracking))
+    trackingBtn.connect(SEL_UPDATE, method(:onUpdTracking))
+    FXMenuCheck.new(modemenu, "Toggle pane 1", group1, FXWindow::ID_TOGGLESHOWN)
+    FXMenuCheck.new(modemenu, "Toggle pane 2", group2, FXWindow::ID_TOGGLESHOWN)
+    FXMenuCheck.new(modemenu, "Toggle pane 3", group3, FXWindow::ID_TOGGLESHOWN)
+   
+    FXMenuTitle.new(menubar, "&Mode", nil, modemenu)
+      
+    tree = FXTreeList.new(group1,
+      :opts => (LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_RIGHT|TREELIST_SHOWS_LINES|
+      TREELIST_SHOWS_BOXES|TREELIST_ROOT_BOXES|TREELIST_EXTENDEDSELECT))
+  
+    topmost = tree.appendItem(nil, "Top", folder_open, folder_closed)
+    tree.expandTree(topmost)
+      tree.appendItem(topmost, "First", doc, doc)
+      tree.appendItem(topmost, "Second", doc, doc)
+      tree.appendItem(topmost, "Third", doc, doc)
+      branch = tree.appendItem(topmost, "Fourth", folder_open, folder_closed)
+      tree.expandTree(branch)
+        tree.appendItem(branch, "Fourth-First", doc, doc)
+        tree.appendItem(branch, "Fourth-Second", doc, doc)
+        twig = tree.appendItem(branch, "Fourth-Third",
+                                folder_open, folder_closed)
+          tree.appendItem(twig, "Fourth-Third-First", doc, doc)
+          tree.appendItem(twig, "Fourth-Third-Second", doc, doc)
+          tree.appendItem(twig, "Fourth-Third-Third", doc, doc)
+          leaf = tree.appendItem(twig, "Fourth-Third-Fourth",
+                                  folder_open, folder_closed)
+          leaf.setEnabled(false)
+            tree.appendItem(leaf, "Fourth-Third-Fourth-First", doc, doc)
+            tree.appendItem(leaf, "Fourth-Third-Fourth-Second", doc, doc)
+            tree.appendItem(leaf, "Fourth-Third-Fourth-Third", doc, doc)
+        twig = tree.appendItem(branch, "Fourth-Fourth",
+                                folder_open, folder_closed)
+          tree.appendItem(twig, "Fourth-Fourth-First", doc, doc)
+          tree.appendItem(twig, "Fourth-Fourth-Second", doc, doc)
+          tree.appendItem(twig, "Fourth-Fourth-Third", doc, doc)
+          0.upto(9) { |i| tree.appendItem(twig, i.to_s, doc, doc) }
+        twig = tree.appendItem(branch, "Fourth-Fifth",
+                                folder_open, folder_closed)
+        tree.expandTree(twig)
+          tree.appendItem(twig, "Fourth-Fifth-First", doc, doc)
+          tree.appendItem(twig, "Fourth-Fifth-Second", doc, doc)
+          tree.appendItem(twig, "Fourth-Fifth-Third", doc, doc)
+          0.upto(9) { |i| tree.appendItem(twig, i.to_s, doc, doc) }
+      tree.appendItem(topmost, "Fifth", doc, doc)
+      tree.appendItem(topmost, "Sixth", doc, doc)
+      branch = tree.appendItem(topmost, "Seventh", folder_open, folder_closed)
+        tree.appendItem(branch, "Seventh-First", doc, doc)
+        tree.appendItem(branch, "Seventh-Second", doc, doc)
+        tree.appendItem(branch, "Seventh-Third", doc, doc)
+      tree.appendItem(topmost, "Eighth", doc, doc)
+    
+    FXLabel.new(group2, "Matrix", nil, LAYOUT_CENTER_X)
+    FXHorizontalSeparator.new(group2, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+    matrix = FXMatrix.new(group2, 2, MATRIX_BY_COLUMNS|LAYOUT_FILL_X)
+    
+    FXLabel.new(matrix, "Alpha:", nil,
+      JUSTIFY_RIGHT|LAYOUT_FILL_X|LAYOUT_CENTER_Y)
+    FXTextField.new(matrix, 2, nil, 0, (FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN))
+    FXLabel.new(matrix, "Beta:", nil,
+      JUSTIFY_RIGHT|LAYOUT_FILL_X|LAYOUT_CENTER_Y)
+    FXTextField.new(matrix, 2, nil, 0, (FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN))
+    FXLabel.new(matrix, "Gamma:", nil,
+      JUSTIFY_RIGHT|LAYOUT_FILL_X|LAYOUT_CENTER_Y)
+    FXTextField.new(matrix, 2, nil, 0, (FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN))
+   
+    continuousCheck = FXCheckButton.new(group2,
+      "Continuous Tracking\tSplitter continuously tracks split changes")
+    continuousCheck.connect(SEL_COMMAND, method(:onCmdTracking))
+    continuousCheck.connect(SEL_UPDATE, method(:onUpdTracking))
+    
+    FXLabel.new(group3, "Quite a Stretch", nil, LAYOUT_CENTER_X)
+    FXHorizontalSeparator.new(group3, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+    mat = FXMatrix.new(group3, 3, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    FXButton.new(mat, "One\nStretch the row\nStretch in Y\nStretch in X\t" +
+      "The possibilities are endless..", nil, nil, 0,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_FILL_ROW)
+    FXButton.new(mat, "Two\nStretch in X\tThe possibilities are endless..", nil,
+      nil, 0, FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X)
+    FXButton.new(mat, "Three\nStretch the row\nStretch in Y\nStretch in X\t" +
+      "The possibilities are endless..", nil, nil, 0,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_FILL_ROW)
+    
+    FXButton.new(mat, "Four\nStretch the column\nStretch the row\n" +
+      "Stretch in Y\nStretch in X\tThe possibilities are endless..", nil,
+      nil, 0, (FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|
+      LAYOUT_FILL_ROW|LAYOUT_FILL_COLUMN))
+    FXButton.new(mat, "Five\nStretch the column\nStretch in Y\n" +
+      "Stretch in X\tThe possibilities are endless..", nil, nil, 0,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_FILL_COLUMN)
+    FXButton.new(mat, "Six\nStretch the column\nStretch the row\n" +
+      "Stretch in Y\nStretch in X\tThe possibilities are endless..", nil,
+      nil, 0, (FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|
+      LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW))
+    
+    FXButton.new(mat, "Seven\nStretch the column\nStretch the row\n" +
+      "Center in Y\nCenter in X\tThe possibilities are endless..", nil,
+      nil, 0, (FRAME_RAISED|FRAME_THICK|LAYOUT_CENTER_Y|LAYOUT_CENTER_X|
+      LAYOUT_FILL_ROW|LAYOUT_FILL_COLUMN))
+    FXButton.new(mat,
+      "Eight\nStretch the column\tThe possibilities are endless..",nil,
+      nil, 0, FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_COLUMN)
+    FXButton.new(mat, "Nine\nStretch the column\nStretch the row\n" +
+      "Stretch in Y\tThe possibilities are endless..", nil, nil, 0,
+      (FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_FILL_Y|
+      LAYOUT_FILL_ROW|LAYOUT_FILL_COLUMN))
+    
+    # Make a tool tip
+    FXToolTip.new(getApp(), 0)
+  end
+
+  def onCmdTracking(sender, sel, ptr)
+    @splitter.splitterStyle ^= SPLITTER_TRACKING
+    return 1
+  end
+
+  def onUpdTracking(sender, sel, ptr)
+    if (@splitter.splitterStyle & SPLITTER_TRACKING) != 0
+      sender.handle(self, FXSEL(SEL_COMMAND, ID_CHECK), nil)
+    else
+      sender.handle(self, FXSEL(SEL_COMMAND, ID_UNCHECK), nil)
+    end
+    return 1
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  application = FXApp.new("Splitter", "FoxTest")
+  SplitterWindow.new(application)
+  application.create
+  application.run
+end

data/examples/styledtext.rb

@@ -0,0 +1,82 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/colors'
+
+include Fox
+
+PREAMBLE = <<EOM
+We the people of the United States, in order to form a more perfect union,
+establish justice, insure domestic tranquility, provide for the common defense,
+promote the general welfare, and secure the blessings of liberty to ourselves and
+our posterity, do ordain and establish this Constitution for the United States of America.
+EOM
+ 
+class StyledTextWindow < FXMainWindow
+  def initialize(app)
+    # Call the base class initialize() first
+    super(app, "Styled Text Test")
+    self.width = 400
+    self.height = 300
+
+    # Menu bar, along the top
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+  
+    # Button bar along the bottom
+    buttons = FXHorizontalFrame.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X)
+    
+    # The frame takes up the rest of the space
+    textframe = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK)
+    
+    # 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)
+    
+    # Text window
+    text = FXText.new(textframe, nil, 0,
+      TEXT_READONLY|TEXT_WORDWRAP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    # Construct some hilite styles
+    hs1 = FXHiliteStyle.from_text(text)
+    hs1.normalForeColor = FXColor::Red
+    hs1.normalBackColor = FXColor::Blue
+    hs1.style = FXText::STYLE_BOLD
+
+    hs2 = FXHiliteStyle.from_text(text)
+    hs2.normalForeColor = FXColor::Blue
+    hs2.normalBackColor = FXColor::Yellow
+    hs2.style = FXText::STYLE_UNDERLINE
+    
+    # Enable the style buffer for this text widget
+    text.styled = true
+    
+    # Set the styles
+    text.hiliteStyles = [hs1, hs2]
+    
+    # Set the text
+    text.text = PREAMBLE.gsub!(/\n/, "")
+    
+    # Change the style for this phrase to hs1 [index 1]
+    phrase = "a more perfect union"
+    text.changeStyle(PREAMBLE.index(phrase), phrase.length, 1)
+
+    # Change the style for this phrase to hs2 [index 2]
+    phrase = "United States of America"
+    text.changeStyle(PREAMBLE.index(phrase), phrase.length, 2)
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  application = FXApp.new("StyledText", "FoxTest")
+  StyledTextWindow.new(application)
+  application.create
+  application.run
+end