fxruby 1.6.5 → 1.6.6

data/examples/inputs.rb

@@ -1,6 +1,7 @@
 #!/usr/bin/env ruby
 
 require 'fox16'
+require 'fox16/kwargs'
 
 include Fox
 
@@ -8,20 +9,19 @@ class InputHandlerWindow < FXMainWindow
 
   def initialize(app)
     # Initialize base class first
-    super(app, "Input Handlers Test", nil, nil, DECOR_ALL, 0, 0, 400, 300)
+    super(app, "Input Handlers Test", :opts => DECOR_ALL, :width => 400, :height => 300)
 
     # Text area plus a button
     commands = FXHorizontalFrame.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X)
     FXLabel.new(commands, "Command:")
-    @cmdInput = FXTextField.new(commands, 30,
-      nil, 0, FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X) 
+    @cmdInput = FXTextField.new(commands, 30, :opts => FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X) 
     @cmdInput.connect(SEL_COMMAND, method(:onCmdText))
     FXHorizontalSeparator.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X)
     textFrame = FXVerticalFrame.new(self,
         FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
 
     # Output will be displayed in a multiline text area
-    @cmdOutput = FXText.new(textFrame, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @cmdOutput = FXText.new(textFrame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
 
     # Initialize the pipe
     @pipe = nil
@@ -52,19 +52,19 @@ class InputHandlerWindow < FXMainWindow
     @pipe = IO.popen(@cmdInput.text)
 
     # Register input callbacks and return
-    getApp().addInput(@pipe, INPUT_READ|INPUT_EXCEPT) { |sender, sel, ptr|
+    getApp().addInput(@pipe, INPUT_READ|INPUT_EXCEPT) do |sender, sel, ptr|
       case FXSELTYPE(sel)
-        when SEL_IO_READ
-	  text = @pipe.read
-	  if text && text.length > 0
-            @cmdOutput.appendText(text)
-	  else
-	    closePipe
-	  end
-        when SEL_IO_EXCEPT
-#         puts 'onPipeExcept'
+      when SEL_IO_READ
+        text = @pipe.read
+        if text && text.length > 0
+          @cmdOutput.appendText(text)
+        else
+          closePipe
+        end
+      when SEL_IO_EXCEPT
+        #         puts 'onPipeExcept'
       end
-    }
+    end
     return 1
   end
 end

data/examples/mditest.rb

@@ -2,6 +2,7 @@
 
 require 'fox16'
 require 'fox16/colors'
+require 'fox16/kwargs'
 
 include Fox
 
@@ -47,7 +48,7 @@ class MDITestWindow  < FXMainWindow
 
   def initialize(app)
     # Invoke base class initialize method first
-    super(app, "MDI Widget Test", nil, nil, DECOR_ALL, 0, 0, 800, 600)
+    super(app, "MDI Widget Test", :opts => DECOR_ALL, :width => 800, :height => 600)
 
     # Create the font
     @font = FXFont.new(getApp(), "courier", 15, FONTWEIGHT_BOLD)
@@ -64,9 +65,9 @@ class MDITestWindow  < FXMainWindow
   
     # Icon for MDI Child
     @mdiicon = nil
-    File.open(File.join("icons", "penguin.png"), "rb") { |f|
+    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)
@@ -133,8 +134,8 @@ class MDITestWindow  < FXMainWindow
       0, x, y, w, h)
     scrollwindow = FXScrollWindow.new(mdichild, 0)
     scrollwindow.verticalScrollBar.setLine(@font.fontHeight)
-    btn = FXButton.new(scrollwindow, TYGER, nil, nil, 0,
-      LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, 0, 0, 600, 1000)
+    btn = FXButton.new(scrollwindow, TYGER,
+      :opts => LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, :width => 600, :height => 1000)
     btn.font = @font
     btn.backColor = FXColor::White
     mdichild

data/examples/pig.rb

@@ -5,6 +5,7 @@
 #
 
 require 'fox16'
+require 'fox16/kwargs'
 
 include Fox
 

data/examples/raabrowser.rb

@@ -1,60 +1,51 @@
-require 'cgi'
 require 'fox16'
-begin
-  require 'RAA'
-rescue LoadError
-  require 'fox16/missingdep'
-  MSG = <<EOM
-  Sorry, this example depends on the SOAP4R extension. Please
-  check the Ruby Application Archives for an appropriate
-  download site.
-EOM
-  missingDependency(MSG)
-end
+require 'fox16/kwargs'
+require 'cgi'
+require 'soap/wsdlDriver'
 
 include Fox
 
 class RAABrowserWindow < FXMainWindow
+  
   def initialize(app)
     # Initialize base class
-    super(app, "Ruby Application Archive", nil, nil, DECOR_ALL, 0, 0, 600, 600)
-    
+    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))
+    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)
+    LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_GROOVE)
     frame = FXHorizontalFrame.new(groupbox,
-      LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK)
+    LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK)
 
     # Create the empty tree list
-    @treeList = FXTreeList.new(frame, nil, 0,
-      (TREELIST_BROWSESELECT|TREELIST_SHOWS_LINES|TREELIST_SHOWS_BOXES|
-       TREELIST_ROOT_BOXES|LAYOUT_FILL_X|LAYOUT_FILL_Y))
+    @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
-	    info = @raa.getInfoFromName(item.text)
-	    @category.value = info.category.major + "/" + info.category.minor
-	    @projectName.value = info.product.name
-	    @version.value = info.product.version
-	    @status.value = info.product.status
-	    @lastUpdate.value = info.update.strftime("%F %T GMT")
-	    @owner.value = "#{info.owner.name} (#{info.owner.email.to_s})"
-	    @homepage.value = info.product.homepage.to_s
-	    @download.value = info.product.download.to_s
-	    @license.value = info.product.license
-	    @description.value = CGI::unescapeHTML(info.product.description).gsub(/\r\n/, "\n")
-	  rescue SOAP::PostUnavailableError => ex
-	    getApp().endWaitCursor
-	    FXMessageBox.error(self, MBOX_OK, "SOAP Error", ex.message)
-	  end
+            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
@@ -100,18 +91,18 @@ class RAABrowserWindow < FXMainWindow
     FXText.new(descriptionFrame, @description, FXDataTarget::ID_VALUE, TEXT_READONLY|TEXT_WORDWRAP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
       
     # Initialize the service
-    @raa = RAA::Driver.new
+    @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.getProductTree
+    @productTree = @raa.tree_by_category
     @productTree.keys.sort.each do |sectionName|
       sectionHash = @productTree[sectionName]
-      sectionItem = @treeList.addItemLast(nil, sectionName)
+      sectionItem = @treeList.appendItem(nil, sectionName)
       sectionHash.keys.sort.each do |categoryName|
         categoryArray = sectionHash[categoryName]
-        categoryItem = @treeList.addItemLast(sectionItem, categoryName)
+        categoryItem = @treeList.appendItem(sectionItem, categoryName)
         categoryArray.each do |productName|
-          productItem = @treeList.addItemLast(categoryItem, productName)
+          productItem = @treeList.appendItem(categoryItem, productName)
         end
       end
     end

data/examples/ratio.rb

@@ -6,6 +6,7 @@
 
 require 'fox16'
 require 'fox16/colors'
+require 'fox16/kwargs'
 
 include Fox
 
@@ -13,36 +14,46 @@ class MainWindow < FXMainWindow
   
   def initialize(app)
 	 # Initialize base class first
-    super(app, 'Ratio', nil, nil, DECOR_ALL, 0, 0, 400, 200, 8, 8, 8, 8, 6, 6)
+    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, FRAME_RAISED|FRAME_THICK|LAYOUT_SIDE_BOTTOM|LAYOUT_CENTER_X, 0, 0, 0, 0, 20, 20, 2, 2)
+    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!", nil, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+    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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
+    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, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0) do |spring1|
-	   FXLabel.new(spring1, "1", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label1|
-	     label1.backColor = FXColor::Red
+	 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, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0) do |spring2|
-      FXLabel.new(spring2, "2", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label2|
-        label2.backColor = FXColor::Green
+    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, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0) do |spring3|
-      FXLabel.new(spring3, "3", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label3|
-        label3.backColor = FXColor::Blue
+    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
@@ -55,16 +66,16 @@ class MainWindow < FXMainWindow
 end  # class MainWindow 
 
 if __FILE__ == $0
-  # Construct an application 
+  # Construct an application
   FXApp.new('Smithy', 'Max') do |theApp|
 
-    # Construct the main window  
+    # Construct the main window
     MainWindow.new(theApp) 
 
     # Create and show the application windows  
     theApp.create 
 
-    # Run the application  
+    # Run the application
     theApp.run
   end
 end

data/examples/rulerview.rb

@@ -1,17 +1,18 @@
 require 'fox16'
+require 'fox16/kwargs'
 
 include Fox
 
 class RulerViewExample < FXMainWindow
   def initialize(app)
     # Initialize base class
-    super(app, "Ruler View", nil, nil, DECOR_ALL, 0, 0, 400, 400)
+    super(app, "Ruler View", :opts => DECOR_ALL, :width => 400, :height => 400)
     
     # Construct a ruler view inside
-    ruler_view = FXRulerView.new(self, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    ruler_view = FXRulerView.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
     
     # And put some content inside that
-    contents = FXText.new(ruler_view, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    contents = FXText.new(ruler_view, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
     contents.text = "This is a test."
   end
 end

data/examples/scribble.rb

@@ -1,6 +1,7 @@
 #!/usr/bin/env ruby
 
 require 'fox16'
+require 'fox16/kwargs'
 
 include Fox
 
@@ -8,28 +9,26 @@ class ScribbleWindow < FXMainWindow
 
   def initialize(app)
     # Call base class initializer first
-    super(app, "Scribble Application", nil, nil, DECOR_ALL,
-      0, 0, 800, 600)
+    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, 0, 0, 0, 0, 0, 0, 0, 0)
+      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,
-      0, 0, 0, 0, 10, 10, 10, 10)
+      :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)
+    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, nil, 0,
-      LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+    @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
@@ -94,24 +93,22 @@ class ScribbleWindow < FXMainWindow
     # 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)
+      :padLeft => 10, :padRight => 10, :padTop => 10, :padBottom => 10)
 
     # Label above the buttons
-    FXLabel.new(@buttonFrame, "Button Frame", nil,
-      JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+    FXLabel.new(@buttonFrame, "Button Frame", nil, JUSTIFY_CENTER_X|LAYOUT_FILL_X)
 
     # Horizontal divider line
-    FXHorizontalSeparator.new(@buttonFrame,
-      SEPARATOR_RIDGE|LAYOUT_FILL_X)
+    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", nil, nil, 0,
-      FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
-      0, 0, 0, 0, 10, 10, 5, 5)
+    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
@@ -136,7 +133,7 @@ class ScribbleWindow < FXMainWindow
     # 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)
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
 
     # Initialize other member variables
     @drawColor = "red"

data/examples/shutter.rb

@@ -1,6 +1,7 @@
 #!/usr/bin/env ruby
 
 require 'fox16'
+require 'fox16/kwargs'
 
 include Fox
 
@@ -8,7 +9,7 @@ GORTS_BLURB = "Icons courtesy of Gort's Icons:\nhttp://www.forrestwalter.com/ico
 
 class ShutterItem < FXShutterItem
   def initialize(p, text, icon=nil, opts=0)
-    super(p, text, icon, opts|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT, 0, 0, 0, 0, 10, 10, 10, 10, 10, 10)
+    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
@@ -16,7 +17,7 @@ end
 
 class ShutterButton < FXButton
   def initialize(p, txt, ic=nil)
-    super(p, txt, ic, nil, 0, BUTTON_TOOLBAR|TEXT_BELOW_ICON|FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT)
+    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
@@ -31,9 +32,9 @@ class ShutterWindow < FXMainWindow
     begin
       filename = File.join("icons", filename)
       icon = nil
-      File.open(filename, "rb") { |f|
+      File.open(filename, "rb") do |f|
         icon = FXICOIcon.new(getApp(), f.read)
-      }
+      end
       icon
     rescue
       raise RuntimeError, "Couldn't load icon: #{filename}"
@@ -42,7 +43,7 @@ class ShutterWindow < FXMainWindow
 
   def initialize(app)
     # Invoke base class initialize first
-    super(app, "Look Out!", nil, nil, DECOR_ALL, 0, 0, 600, 600)
+    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)
@@ -85,9 +86,9 @@ class ShutterWindow < FXMainWindow
       LAYOUT_FILL_Y|SPLITTER_TRACKING))
 
     # Shutter area on the left
-    @shutter = FXShutter.new(splitter, nil, 0,
-      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y,
-      0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
+    @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")
@@ -121,7 +122,7 @@ class ShutterWindow < FXMainWindow
     # 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, 0, 0, 0, 0, 0, 0, 0, 0)
+      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)