foxguib 1.1.0

data/src/propman.rb

@@ -0,0 +1,88 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+require "singleton"
+require "prop-lists"
+include FX
+require "prop-types"
+# require 'container'
+class PropMan
+  include Singleton
+  @@created = false
+  def initialize
+    @props = {}
+  end
+
+  def self.created?
+    @@created
+  end
+  attr_accessor :type_lbl
+  # widget name manipulator
+  attr_reader :nameProp, :props, :icons
+
+  def refresh
+    # ~ @sh.recalc
+    # ~ @sh.forceRefresh
+  end
+
+  def make_container(p, title)
+    c = Container.new(p)
+    c.title = title
+    c.header.backColor = HEADER_COLOR
+    c
+  end
+
+  def create width
+    @@created = true
+    v = p = MAINWIN.prop_Frame
+    v.vSpacing = 2
+    v.packingHints = PACK_UNIFORM_WIDTH
+    Label.new(v) { |l|
+      @type_lbl = l
+      l.text = " "
+    }
+    @nameProp = NameProp.new(v)
+    i = make_container v, "Flags"
+    add_prop_manipulators $const_props, i
+    i = make_container v, "General"
+    add_prop_manipulators $general_props, i
+    i = make_container v, "Color Properties"
+    add_prop_manipulators $color_props, i
+    $font_dlg = Fox::FXFontDialog.new p, "Font Selection Dialog"
+    $color_dlg = Fox::FXColorDialog.new p, "Color Selection Dialog"
+    p.recursive { |w|
+      w.baseColor = STD_BACK_COLOR
+      next if w.is_a? TextField
+      next if w.backColor == HEADER_COLOR
+      w.backColor = STD_BACK_COLOR
+    }
+  end
+
+  # creates all the propmanipulators and adds them to the parent p
+  def add_prop_manipulators list, p
+    list.each { |method, type, array|
+      # ~ next unless respond_to? method
+      begin
+        c = Object.const_get(type)
+        @props[method] = c.new(p, method, array)
+      rescue
+        puts "type #{type}:"
+        puts $!
+        puts $!.backtrace.join("\n")
+        next
+      end
+    }
+  end
+
+  def reset_props
+    # puts "reset_props"
+    @type_lbl.text = " "
+    @nameProp.set_data ""
+    @props.each { |m, manip|
+      manip.wdg = nil
+      manip.set_enabled(false)
+      manip.visible = true
+      manip.show
+      manip.forceRefresh
+    }
+    MAINWIN.prop_Frame.recalc
+  end
+end

data/src/relink_mechanisms.rb

@@ -0,0 +1,95 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+module RelinkMechanisms
+  def self.relink_possible?(source, where, target)
+    # general
+    return false if source.nil? or target.nil?
+    return false if source == target
+    return false if target.childOf? source
+    insert_possible?(where, target)
+  end
+
+  def self.insert_possible? where, target
+    raise TypeError unless where.is_a? String and target.is_a? Fox::FXWindow
+    return false if where == "inside" and !target.composite?
+    return false if where == "before" and target.is_a? Fox::FXTopWindow
+    return false if where == "after" and target.is_a? Fox::FXTopWindow
+    true
+  end
+
+  def self.relink_wdg source, where, target
+    return unless relink_possible?(source, where, target)
+    if where == "before"
+      # puts "link #{source} before #{target}"
+      source.reparent target.parent, target if source.parent != target.parent
+      source.linkBefore target
+    elsif where == "after"
+      # puts "link #{source} after #{target}"
+      source.reparent target.parent, target.next if source.parent != target.parent
+      source.linkAfter target
+    elsif where == "inside"
+      # puts "reparent #{source} under #{target}"
+      source.reparent target, target.children.last
+      source.linkAfter target.children.last
+    else
+      return
+    end
+    source.shell.forceRefresh
+  end
+
+  def self.mouse_relink(source, target)
+    # puts "mouse_relink [#{source}] -> [#{target}]"
+    if target.composite?
+      relink_wdg source, "inside", target
+    elsif source.next == target
+      relink_wdg source, "after", target
+    else
+      relink_wdg source, "before", target
+    end
+  end
+
+  def self.mouse_relink_test(source, target)
+    if target.composite?
+      return relink_possible?(source, "inside", target)
+    elsif source.next == target
+      return relink_possible?(source, "after", target)
+    else
+      return relink_possible?(source, "before", target)
+    end
+    false
+  end
+
+  def self.keyboard_relink source, event
+    return unless source
+    target = where = nil
+    if source
+      if [CURSOR_UP, CURSOR_LEFT].include? event.code
+        where = "before"
+        target = source.prev
+        unless $CTRL
+          if target
+            where = "inside" if target.composite?
+          else
+            target = source.parent
+          end
+        end
+      elsif [CURSOR_DOWN, CURSOR_RIGHT].include? event.code
+        where = "after"
+        target = source.next
+        unless $CTRL
+          if target
+            if target.children.size > 0
+              where = "before"
+              target = target.children[0]
+            elsif target.composite?
+              where = "inside"
+            end
+          else
+            target = source.parent
+          end
+        end
+      end
+    end
+    RelinkMechanisms.relink_wdg(source, where, target)
+  end
+end

data/src/serialize.rb

@@ -0,0 +1,167 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "minitest"
+require "pp"
+require "yaml"
+
+class PP < PrettyPrint
+  module PPMethods
+    def pp_hash(obj)
+      group(1, "{", "}") {
+        seplist(obj.to_a.sort { |a, b| a[0].to_s <=> b[0].to_s }, nil, :each) { |kv|
+          k, v = *kv
+          group {
+            pp k
+            text "=>"
+            group(1) {
+              breakable ""
+              pp v
+            }
+          }
+        }
+        obj
+      }
+    end
+  end
+end
+
+class Loader
+  def initialize dir = "."
+    @home = dir
+    on_fail { |filename, msg| puts "error loading <#{filename}>: \n\t#{msg}" }
+  end
+
+  def load(filename) # {|data| ... }
+    assert block_given?
+    open(filename) { |f|
+      begin
+        data = specialized_load(f)
+        yield data
+      rescue Exception
+        fail(filename, $!.to_s)
+      end
+    }
+  end
+
+  def on_fail(&block) # {|filename, msg|  ... }
+    assert block
+    @fail = block
+  end
+
+  protected
+
+  def specialized_load(f)
+    f.read
+  end
+
+  def open(filename, &block) # {|f| ... }
+    assert block
+    path = File.join(@home, filename)
+    unless File.exist? path
+      fail(filename, "File does not exist in \"#{path}\"!")
+      return
+    end
+    begin
+      File.open(path, "rb", &block)
+    rescue Exception
+      fail(filename, $!)
+    end
+  end
+
+  def fail(filename, msg)
+    @fail.call(filename, msg)
+  end
+end
+
+class YamlLoader < Loader
+  def specialized_load(f)
+    YAML.load(f.read)
+  end
+end
+
+class RbinLoader < Loader
+  def specialized_load(f)
+    Marshal.load(f.read)
+  end
+end
+
+class RubyLoader < Loader
+  def specialized_load(f)
+    eval(f.read)
+  end
+end
+
+# deprecated !!
+module Serialize
+  def load_from_file filename
+    data = nil
+    f = nil
+    if filename.split(".").pop == "pp"
+      f = File.new(filename)
+      # ~ puts 'pp load'
+      begin
+        data = eval(f.read)
+      rescue Exception
+        error "pp load error: ", $!.to_s
+      end
+    else
+      f = File.new(filename, "rb")
+      # ~ puts 'binary load'
+      begin
+        data = Marshal.load(f.read)
+      rescue Exception
+        error "binary load error: ", $!.to_s
+      end
+    end
+    f.close
+    data
+  end
+
+  def save_to_file filename, data
+    if filename.split(".").pop == "pp"
+      begin
+        out = $stdout
+        $stdout = File.new(filename.tr("\\", "/"), "w")
+        pp data
+        $stdout.flush
+      rescue Exception
+        filename += ".rbin"
+        puts "rescue marshal to: " + filename
+        puts $!
+        puts $!.backtrace.join($/)
+        try_marshal = true
+      ensure
+        $stdout.close
+        $stdout = out
+      end
+    else
+      try_marshal = true
+    end
+    if try_marshal
+      f = File.new(filename.tr("\\", "/"), "wb")
+      Marshal.dump data, f
+      f.flush
+      f.close
+    end
+  end
+
+  def load_yaml filename
+    data = nil
+    File.open(filename, "rb") { |f|
+      data = YAML.load(f.read)
+    }
+    data
+  end
+end # module
+
+if __FILE__ == $0
+  HOME = "."
+
+  loader = YamlLoader.new(HOME)
+  # loader.on_fail{|filename, msg| puts "error loading <#{filename}>: event editor cannot proceed!\n\t#{msg}"}
+
+  events = nil
+  loader.load("events.yaml") { |data| events = data }
+  pp events
+
+end

data/src/state_machine.rb

@@ -0,0 +1,73 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+class StateMachine
+  def initialize
+    @states = []
+    @state_transitions = {}
+  end
+
+  # first state is initial state
+  def add_states(*states)
+    @states |= states
+  end
+
+  def state_transition(state1, state2, condition, action = nil)
+    array = @state_transitions.fetch(state1) { @state_transitions[state1] = [] }
+    array << [state2, condition, action]
+  end
+
+  def start
+    @__state__ = @states[0]
+  end
+
+  def input data
+    old_state = @__state__
+    old_state.input = data
+    a = @state_transitions[old_state]
+    return unless a
+    a.each { |record|
+      new_state, condition, action = record
+      if condition.call(old_state, new_state)
+        @__state__ = new_state
+        action.call(old_state, new_state) if action
+        break
+      end
+    }
+  end
+
+  def state
+    @__state__
+  end
+end
+
+class State
+  attr_accessor :input
+  def initialize name
+    @name = name
+    @data = {}
+  end
+
+  def []=(k, v)
+    @data[k] = v
+  end
+
+  def [](k)
+    @data[k]
+  end
+
+  def to_s
+    @name.to_s
+  end
+end
+
+if __FILE__ == $0
+  sm = StateMachine.new
+  sm.add_states :UNSELECTED, :SELECTED
+  condition = proc { true }
+  action = proc { |o, n| puts "#{o}-->#{n}" }
+  sm.state_transition :UNSELECTED, :SELECTED, condition, action
+  sm.state_transition :SELECTED, :UNSELECTED, condition, action
+  sm.start
+  sm.input nil
+  sm.input nil
+end

data/src/version.rb

@@ -0,0 +1,6 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+FOXGUIB_NAME = "foxGUIb"
+FOXGUIB_VERSION = "1.1.0"
+FOXGUIB = "#{FOXGUIB_NAME} #{FOXGUIB_VERSION}"
+FOXGUIB_LIBRARY = "libGUIb16"

data/src/widget-lists.rb

@@ -0,0 +1,118 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+$all_widgets = [
+  # ~ "ArrowButton",
+  # ~ "Button",
+  # "Calendar",
+  "Canvas",
+  # ~ "CheckButton",
+  # ~ "ComboBox",
+  # ~ "Dial",
+  "DirBox",
+  "DirList",
+  "DriveBox",
+  "FileList",
+  # ~ "GroupBox",
+  "Header",
+  # ~ "HorizontalFrame",
+  "HorizontalSeparator",
+  "IconList",
+  # ~ "Label",
+  "List",
+  "ListBox",
+  # ~ "MDIClient",
+  "MenuButton",
+  # ~ "MenuCaption",
+  # ~ "MenuCascade",
+  # ~ "MenuCommand",
+  # ~ "MenuPane",
+  # ~ "MenuSeparator",
+  # ~ "MenuTitle",
+  # ~ "Menubar",
+  "Option",
+  "OptionMenu",
+  # ~ "Packer",
+  # ~ 'ProgressBar',
+  # ~ "RadioButton",
+  # "Scintilla",
+  "ScrollArea",
+  # ~ "ScrollBar",
+  # ~ "ScrollWindow",
+  # ~ "Shutter",
+  # ~ "ShutterItem",
+  # ~ 'Slider',
+  # ~ "Spinner",
+  # ~ "Splitter",
+  # ~ "StatusBar",
+  # ~ 'StatusLine',
+  # ~ "Switcher",
+  # ~ "TabBar",
+  # ~ "TabBook",
+  # ~ "TabItem",
+  # ~ "Text",
+  # ~ "TextField",
+  # ~ "ToggleButton",
+  # ~ "Toolbar",
+  "TreeList",
+  # ~ "VerticalFrame",
+  "VerticalSeparator"
+]
+
+## input
+$input_display_widgets = [
+  "ArrowButton",
+  "Button",
+  "CheckButton",
+  "ComboBox",
+  "Dial",
+  "Label",
+  "RadioButton",
+  "Text",
+  "TextField",
+  "ToggleButton",
+  "Slider",
+  "Spinner",
+  "ScrollBar",
+  "ProgressBar"
+]
+# ~ 'GroupBox',
+# ~ 'HorizontalFrame',
+# ~ 'VerticalFrame',
+$menu_widgets = [
+  "MenuBar",
+  "MenuCaption",
+  "MenuCascade",
+  "MenuCommand",
+  "MenuCheck",
+  "MenuRadio",
+  "MenuSeparator",
+  "MenuTitle",
+  "MenuPane"
+]
+$bar_widgets = [
+  "MenuBar",
+  "ToolBar",
+  "StatusBar",
+  "StatusLine"
+]
+$tab_widgets = [
+  "TabBar",
+  "TabBook",
+  "TabItem",
+  "Switcher"
+]
+$container_widgets = [
+  "VerticalFrame",
+  "HorizontalFrame",
+  "RadioMutex",
+  "Packer",
+  "GroupBox",
+  "ScrollWindow",
+  "Shutter",
+  "ShutterItem",
+  "Splitter",
+  "Matrix",
+  "MDIClient"
+]
+
+ALL_WIDGETS = $all_widgets + $container_widgets + $tab_widgets + $bar_widgets + $menu_widgets + $input_display_widgets

data/src/widget-selector.rb

@@ -0,0 +1,85 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+require "singleton"
+require "widget-lists"
+# require 'container'
+class WidgetSelector
+  include Singleton
+  def initialize
+    # ~ create_dlg
+    # ~ add $popular_widgets, @popular, @pop_cols, @pop_cnt
+    # ~ add $container_widgets, @container, @cont_cols, @cont_cnt
+    # ~ add $all_widgets, @all, @all_cols, @all_cnt
+    @dlg = MAINWIN.wdg_Frame
+    @dlg.vSpacing = 2
+    create_popup @dlg
+    generate($input_display_widgets, "Input and Display").open_body
+    generate($container_widgets, "Container and Layoutmanager").open_body
+    generate $menu_widgets, "Menubar and Menu"
+    generate $bar_widgets, "Bars"
+    generate $tab_widgets, "Switchers"
+    generate $all_widgets, "Others"
+  end
+
+  def make_container(p, title)
+    c = Container.new(p)
+    c.title = title
+    c.header.backColor = HEADER_COLOR
+    m = FXMatrix.new c, 3, MATRIX_BY_COLUMNS
+    m.pad 1, 1, 1, 1
+    m.hSpacing = 1
+    m.vSpacing = 1
+    m.backColor = FXRGB(255, 255, 255)
+    [c, m]
+  end
+
+  def generate list, title
+    c, m = make_container(@dlg, title)
+    list.each { |classname|
+      b = Button.new m
+      b.backColor = FXRGB(255, 255, 255)
+      b.justify = JUSTIFY_LEFT
+      b.iconPosition = ICON_BEFORE_TEXT
+      b.buttonStyle = BUTTON_TOOLBAR
+      iconfile = "src/gui/#{classname}.tga"
+      # puts "#{iconfile} does not exist." if $DEBUG and !File.exist?( iconfile)
+      b.icon = Icon.new(iconfile).img
+      b.text = classname.to_s
+      b.layoutHints = LAYOUT_FIX_HEIGHT | LAYOUT_FIX_WIDTH
+      b.height = 40
+      b.width = 120
+      b.connect(SEL_COMMAND) { DocMan.instance.add_widget classname.to_s }
+      b.connect(SEL_RIGHTBUTTONPRESS) { |s, x, e|
+        @classname = classname.to_s
+        @classname_caption.text = "[#{@classname}]"
+        @popup.popup nil, e.root_x, e.root_y
+      }
+    }
+    c.close_body
+    c
+  end
+
+  def create_popup(p)
+    @popup = Popup.new(p) { |po|
+      @classname_caption = MenuCaption.new(po) { |c|
+        c.text = "..."
+      }
+      MenuSeparator.new(po)
+      MenuCommand.new(po) { |c|
+        c.text = "add before"
+        c.connect(SEL_COMMAND) { DocMan.instance.add_widget @classname, "before" }
+      }
+      MenuCommand.new(po) { |c|
+        c.text = "add after"
+        c.connect(SEL_COMMAND) { DocMan.instance.add_widget @classname }
+      }
+      MenuCommand.new(po) { |c|
+        c.text = "add inside"
+        c.connect(SEL_COMMAND) { DocMan.instance.add_widget @classname, "inside" }
+      }
+      MenuSeparator.new(po)
+      MenuCommand.new(po) { |c|
+        c.text = "cancel"
+      }
+    }
+  end
+end