fxruby 1.6.19-x86-mingw32

data/examples/hello.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+application = FXApp.new("Hello", "FoxTest")
+main = FXMainWindow.new(application, "Hello", nil, nil, DECOR_ALL)
+FXButton.new(main, "&Hello, World!", nil, application, FXApp::ID_QUIT)
+application.create()
+main.show(PLACEMENT_SCREEN)
+application.run()

data/examples/hello2.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+=begin
+This is the "Cadillac" version of the classic "Hello, World" example;
+it has not only an icon, but also a tooltip, and an accelerator.
+ 
+Executing an FXIcon's constructor will cause it to deserialize the pixel-
+data by associating a memory stream with the data array; the resulting icon
+object will contain a pixel-array, which will be converted to an off-screen
+X pixmap when the icons create() method is called.  At that point, the
+temporary (client-side) pixel storage will be freed.
+=end  
+
+# Construct the application object, with application name "Hello2"
+# and vendor key "FoxTest". These strings are primarily used for
+# interactions with the FOX registry.
+
+application = FXApp.new("Hello2", "FoxTest")
+
+# Construct the main window
+main = FXMainWindow.new(application, "Hello", nil, nil, DECOR_ALL)
+
+# Construct a PNG icon that we'll attach to the button. Note that the
+# second argument to the constructor just needs to be a byte stream (i.e.
+# a string) from some source; here, we're reading the bytes from a file
+# on disk.
+
+icon = nil
+File.open(File.join("icons", "hello2.png"), "rb") { |f|
+  icon = FXPNGIcon.new(application, f.read)
+}
+
+# Construct the button as a child of the main window.
+FXButton.new(main, "&Hello, World!\tWow, FOX is really cool!\nClick on the icon to quit the application.", icon, application, FXApp::ID_QUIT, ICON_UNDER_TEXT|JUSTIFY_BOTTOM)
+
+# Construct the tooltip object
+FXToolTip.new(application)
+
+# Calling create() on the application recursively creates all of its
+# owned resources (e.g. the application's windows)
+application.create
+
+# Show the main window
+main.show(PLACEMENT_SCREEN)
+
+# Kick off the event loop
+application.run

data/examples/iRAA.rb

@@ -0,0 +1,153 @@
+require 'soap/mapping'
+
+
+module RAA; extend SOAP
+
+
+InterfaceNS = "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.1"
+MappingRegistry = SOAP::Mapping::Registry.new
+
+Methods = [
+  ['getAllListings', ['retval', 'return']],
+  ['getProductTree', ['retval', 'return']],
+  ['getInfoFromCategory', ['in', 'category'], [ 'retval', 'return']],
+  ['getModifiedInfoSince', ['in', 'time'], [ 'retval', 'return']],
+  ['getInfoFromName', ['in', 'name'], ['retval', 'return']],
+]
+
+
+class Category
+  include SOAP::Marshallable
+
+  @@schema_type = 'Category'
+  @@schema_ns = InterfaceNS
+
+  attr_reader :major, :minor
+
+  def initialize(major, minor = nil)
+    @major = major
+    @minor = minor
+  end
+
+  def to_s
+    "#{ @major }/#{ @minor }"
+  end
+
+  def ==(rhs)
+    if @major != rhs.major
+      false
+    elsif !@minor or !rhs.minor
+      true
+    else
+      @minor == rhs.minor
+    end
+  end
+end
+
+MappingRegistry.set(
+  ::RAA::Category,
+  ::SOAP::SOAPStruct,
+  ::SOAP::Mapping::Registry::TypedStructFactory,
+  { :type => XSD::QName.new(InterfaceNS, "Category") }
+)
+
+class Product
+  include SOAP::Marshallable
+
+  @@schema_type = 'Product'
+  @@schema_ns = InterfaceNS
+
+  attr_reader :id, :name
+  attr_accessor :short_description, :version, :status, :homepage, :download, :license, :description
+
+  def initialize(name, short_description = nil, version = nil, status = nil, homepage = nil, download = nil, license = nil, description = nil)
+    @name = name
+    @short_description = short_description
+    @version = version
+    @status = status
+    @homepage = homepage
+    @download = download
+    @license = license
+    @description = description
+  end
+end
+
+MappingRegistry.set(
+  ::RAA::Product,
+  ::SOAP::SOAPStruct,
+  ::SOAP::Mapping::Registry::TypedStructFactory,
+  { :type => XSD::QName.new(InterfaceNS, "Product") }
+)
+
+class Owner
+  include SOAP::Marshallable
+
+  @@schema_type = 'Owner'
+  @@schema_ns = InterfaceNS
+
+  attr_reader :id
+  attr_accessor :email, :name
+
+  def initialize(email, name)
+    @email = email
+    @name = name
+    @id = "#{ @email }-#{ @name }"
+  end
+end
+
+MappingRegistry.set(
+  ::RAA::Owner,
+  ::SOAP::SOAPStruct,
+  ::SOAP::Mapping::Registry::TypedStructFactory,
+  { :type => XSD::QName.new(InterfaceNS, "Owner") }
+)
+
+class Info
+  include SOAP::Marshallable
+
+  @@schema_type = 'Info'
+  @@schema_ns = InterfaceNS
+
+  attr_accessor :category, :product, :owner, :update
+
+  def initialize(category = nil, product = nil, owner = nil, update = nil)
+    @category = category
+    @product = product
+    @owner = owner
+    @update = update
+  end
+
+  def <=>(rhs)
+    @update <=> rhs.update
+  end
+
+  def eql?(rhs)
+    @product.name == rhs.product.name
+  end
+end
+
+MappingRegistry.set(
+  ::RAA::Info,
+  ::SOAP::SOAPStruct,
+  ::SOAP::Mapping::Registry::TypedStructFactory,
+  { :type => XSD::QName.new(InterfaceNS, "Info") }
+)
+
+class StringArray < Array; end
+MappingRegistry.set(
+  ::RAA::StringArray,
+  ::SOAP::SOAPArray,
+  ::SOAP::Mapping::Registry::TypedArrayFactory,
+  { :type => XSD::XSDString::Type }
+)
+
+class InfoArray < Array; end
+MappingRegistry.set(
+  ::RAA::InfoArray,
+  ::SOAP::SOAPArray,
+  ::SOAP::Mapping::Registry::TypedArrayFactory,
+  { :type => XSD::QName.new(InterfaceNS, 'Info') }
+)
+
+
+end

data/examples/iconlist.rb

@@ -0,0 +1,92 @@
+require 'fox16'
+
+include Fox
+
+class IconListWindow < FXMainWindow
+  
+  # Load the named PNG icon from a file
+  def loadIcon(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
+
+  # Main window constructor
+  def initialize(app)
+    # Initialize base class first
+    super(app, "Icon List Test", :opts => DECOR_ALL, :width => 800, :height => 600)
+    
+    # Menu bar
+    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)
+      
+    # Status bar
+    status = FXStatusBar.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+    
+    # Main window interior
+    group = FXVerticalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+
+    # Files
+    FXLabel.new(group, "Icon List Widget", nil, LAYOUT_TOP|LAYOUT_FILL_X|FRAME_SUNKEN)
+    subgroup = FXVerticalFrame.new(group, FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+  
+    # Icon list on the right
+    iconlist = FXIconList.new(subgroup, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|ICONLIST_BIG_ICONS|ICONLIST_EXTENDEDSELECT)
+    
+    iconlist.appendHeader("Name", nil, 200)
+    iconlist.appendHeader("Type", nil, 100)
+    iconlist.appendHeader("Size", nil, 60)
+    iconlist.appendHeader("Modified Date", nil, 150)
+    iconlist.appendHeader("User", nil, 50)
+    iconlist.appendHeader("Group", nil, 50)
+  
+    big_folder = loadIcon("bigfolder.png")
+    mini_folder = loadIcon("minifolder.png")
+  
+    iconlist.appendItem("Really BIG and wide item to test\tDocument\t10000\tJune 13, 1999\tUser\tSoftware", big_folder, mini_folder)
+    1.upto(400) do |i|
+      iconlist.appendItem("Filename_#{i}\tDocument\t10000\tJune 13, 1999\tUser\tSoftware", big_folder, mini_folder)
+    end
+    iconlist.currentItem = iconlist.numItems - 1
+
+    # Arrange menu
+    FXMenuPane.new(self) do |menuPane|
+      FXMenuCommand.new(menuPane, "&Details", nil, iconlist, FXIconList::ID_SHOW_DETAILS)
+      FXMenuCommand.new(menuPane, "&Small Icons", nil, iconlist, FXIconList::ID_SHOW_MINI_ICONS)
+      FXMenuCommand.new(menuPane, "&Big Icons", nil, iconlist, FXIconList::ID_SHOW_BIG_ICONS)
+      FXMenuCommand.new(menuPane, "&Rows", nil, iconlist, FXIconList::ID_ARRANGE_BY_ROWS)
+      FXMenuCommand.new(menuPane, "&Columns", nil, iconlist, FXIconList::ID_ARRANGE_BY_COLUMNS)
+      FXMenuTitle.new(menubar, "&Arrange", nil, menuPane)
+    end
+    # Let's see a tooltip
+    FXToolTip.new(getApp())
+  end
+  
+  # Overrides base class version
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  FXApp.new("IconList", "FXRuby") do |theApp|
+    IconListWindow.new(theApp)
+    theApp.create
+    theApp.run
+  end
+end
+