foxguib 1.1.0

data/src/gui/event_editor.rb

@@ -0,0 +1,180 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+if __FILE__ == $0
+  $: << "gui"
+  Dir.chdir ".."
+  STDOUT.sync = true
+  HOME = "."
+  require "libGUIb16"
+end
+require "_guib_event_editor"
+require "serialize"
+require "singleton"
+require "textview"
+
+SELECTED_EVENT_COLOR = Fox::FXRGB(255, 255, 255)
+UNSELECTED_EVENT_COLOR = Fox::FXRGB(200, 200, 200)
+
+class EventEditor < GuibEventEditor
+  include Singleton
+  include Serialize
+  def initialize
+    super(MAINWIN.topwin)
+    @widget = nil # the widget we are going to edit events for
+    @eventGroup = FX::RadioGroup.new
+    @eventsframe.layoutHints = Fox::LAYOUT_FIX_WIDTH | Fox::LAYOUT_FILL_Y
+    @eventsframe.width = 240
+    init_event_list
+    build_event_list
+    @eventGroup.on_event_selected { |radio|
+      @widget.set_behaviour(@selectedEvent, @Text.text) if @widget
+      @selectedEvent = radio.text
+      update
+    }
+    @CheckButton.connect(Fox::SEL_COMMAND) { update }
+    @CheckButton.state = false
+    @Text.connect(Fox::SEL_CHANGED) {
+      next unless @widget and @selectedEvent
+      @widget.set_behaviour(@selectedEvent, @Text.text)
+    }
+    @TextView = TextView.new(@topwin)
+    @TextView.topwin.hide
+    @TextView.topwin.resize(400, 200)
+    update
+  end
+
+  def init_event_list
+    @events = {}
+    loader = YamlLoader.new(HOME)
+    loader.on_fail { |filename, msg|
+      puts "Warning: Event editor couldnt load data! - Error loading <#{filename}>: \n\t#{msg}"
+    }
+    loader.load("src/events.yaml") { |events|
+      events.each { |name|
+        begin
+          @events[name] = Fox.const_get(name)
+        rescue Exception
+          puts "cannot instantiate constant #{name}"
+        end
+      }
+    }
+    loader.load("src/events_docu.yaml") { |docu| @docu = docu }
+  end
+
+  def build_event_list
+    @radioButtons = {}
+    @events.keys.sort.each { |name|
+      FX::HorizontalFrame.new(@eventList) { |h|
+        h.wdg_name = name
+        h.layoutHints = Fox::LAYOUT_FILL_X
+        h.backColor = UNSELECTED_EVENT_COLOR
+        FX::RadioButton.new(h) { |r|
+          r.text = name
+          @radioButtons[name] = r
+          r.backColor = UNSELECTED_EVENT_COLOR
+          @eventGroup << r
+        }
+        next unless @docu
+        FX::Button.new(h) { |b|
+          b.layoutHints = Fox::LAYOUT_RIGHT
+          b.backColor = UNSELECTED_EVENT_COLOR
+          b.text = " ? "
+          b.connect(Fox::SEL_COMMAND) {
+            next unless @widget
+            @TextView.heading.text = "#{@widget.class}: #{name}"
+            @TextView.Text.text = "#{@docu[@widget.class.to_s][name]}\n\nExtracted from www.fxruby.org - Copyright by Lyle Johnson"
+            @TextView.topwin.create if $app.created?
+            @TextView.topwin.show(Fox::PLACEMENT_SCREEN)
+          }
+          b.visible = (@widget and @docu[@widget.class.to_s] and @docu[@widget.class.to_s].has_key?(name))
+        }
+      }
+    }
+  end
+
+  def update
+    unless @widget
+      @Text.text = "No widget is selected!"
+      @Text.disable
+      return
+    end
+    @editframeLabel.text = "@#{@widget.wdg_name}.connect(#{@selectedEvent}){"
+    @evframeLabel.text = "#{@widget.class}:"
+    on = @CheckButton.state
+    @eventList.children.each { |h|
+      event = h.wdg_name
+      next unless h.is_a? FX::HorizontalFrame and event
+      documented = (@widget and @docu[@widget.class.to_s] and @docu[@widget.class.to_s].has_key?(event))
+      h.visible = (on or documented)
+      h.children[1].visible = documented
+      c = (@widget.get_behaviour(event).strip.empty? ? UNSELECTED_EVENT_COLOR : SELECTED_EVENT_COLOR)
+      h.backColor = c
+      h.children.each { |w| w.backColor = c }
+    }
+    @eventList.recalc
+    if @selectedEvent
+      @Text.text = @widget.get_behaviour(@selectedEvent).to_s
+      @Text.enable
+    else
+      @Text.text = "No event is selected!"
+      @Text.disable
+      @CheckButton.setFocus
+    end
+    # Disable setFocus for now as it aborts on X-Windows with
+    # "FXComposeContext: illegal window parameter"
+    # @Text.setFocus
+  end
+
+  def set_widget w
+    @widget = w
+    update
+  end
+
+  def show
+    w = @topwin
+    w.create
+    w.resize(800, 500)
+    w.show(Fox::PLACEMENT_VISIBLE)
+  end
+end
+
+module Behaviour
+  def set_behaviour event, code
+    return unless event
+    return if code.strip.empty?
+    @behaviour ||= {}
+    @behaviour[event] = code
+  end
+
+  def get_behaviour event
+    return "" unless @behaviour
+    @behaviour[event].to_s
+  end
+
+  def behaviour
+    @behaviour
+  end
+
+  def behaviour= b
+    @behaviour = b
+  end
+end
+
+class Fox::FXWindow
+  include Behaviour
+end
+
+# unit test
+if __FILE__ == $0
+  app = FX::App.new
+  MAINWIN = Class.new
+  def MAINWIN.topwin
+    @topwin
+  end
+  MAINWIN.instance_variable_set :@topwin, FX::MainWindow.new(app)
+  w = EventEditor.instance
+  w.topwin.show(0)
+  w.set_widget w.CheckButton
+  app.create
+  app.run
+end

data/src/gui/genruby.rb

@@ -0,0 +1,155 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "_guib_genruby"
+class GenRubyDialog
+  def init
+    @topwin.hide
+    @rg_startpoint = FX::RadioGroup.new
+    @rg_startpoint.on_event_selected { |radio| update }
+    @rg_startpoint << @topmost
+    @rg_startpoint << @selected
+    @rg_source = FX::RadioGroup.new
+    @plain.wdg_name = "plain"
+    @to_class.wdg_name = "class"
+    @rg_source << @plain
+    @rg_source << @to_class
+    @rg_source.on_event_selected { |radio|
+      @format = radio.wdg_name
+      update
+    }
+    @to_console.connect(Fox::SEL_COMMAND) {
+      $console.text.text = ""
+      $console.out(generate)
+      $console.topwin.show(0)
+    }
+    @fs = FileSelector.new(@Packer)
+    @fs.patterns << "Ruby Script (*.rb)"
+    @fs.currentPattern = 1
+    @fs.description = ""
+    FlatStyle.new.apply_to(@fs.topwin)
+    @fs.topwin.padTop = 5
+    @fs.topwin.layoutHints = Fox::LAYOUT_FILL_X
+    @fs.topwin.padLeft = 8
+    @fs.topwin.padRight = 8
+    @fs.browse.text = "..."
+    @fs.textfield.connect(Fox::SEL_CHANGED) { update }
+    @fs.onNewFilenameBlock = proc { update }
+    @cancel.connect(Fox::SEL_COMMAND) {
+      hide
+    }
+    @OK.connect(Fox::SEL_COMMAND) {
+      begin
+        File.open(@fs.textfield.text, "wb") { |f|
+          f.puts generate
+        }
+        @topwin.hide
+      rescue Exception
+        puts $! # TODO write msg to the dialog!!
+        puts $!.backtrace
+      end
+    }
+    @locked.connect(Fox::SEL_COMMAND, method(:update_locked))
+
+    initialize_fields
+    @topwin.resize(350, 350)
+  end
+
+  def update_locked(*args)
+    for w in [@plain, @topmost, @selected, @to_class, @fs.textfield, @fs.browse, @className]
+      # ~ puts w.class
+      w.enabled = !@locked.checked?
+    end
+  end
+
+  # saves the dialog state in a hash
+  def to_h
+    h = {}
+    h[:classname] = @fs.textfield.text
+    h[:filename] = @className.text
+    h[:to_class] = @to_class.state
+    h[:plain] = @plain.state
+    h[:topmost] = @topmost.state
+    h[:selected] = @selected.state
+    h[:locked] = @locked.state
+    h
+  end
+
+  def from_h h
+    return unless h
+    @fs.textfield.text = h[:classname] if h[:classname]
+    @className.text = h[:filename] if h[:filename]
+    @rg_source.select(@to_class) if h[:to_class]
+    @rg_source.select(@plain.state) if h[:plain]
+    @rg_startpoint.select(@topmost.state) if h[:topmost]
+    @rg_startpoint.select(@selected) if h[:selected]
+    @locked.state = h[:locked] if h[:locked]
+  end
+
+  def initialize_fields
+    @locked.check = false
+    @format = "class"
+    @plain.check = false
+    @to_class.check = true
+    @topmost.check = true
+    @selected.check = false
+    @className.text = ""
+    @fs.textfield.text = ""
+  end
+
+  def update
+    update_locked
+    @item = if @selected.state
+      DocMan.instance.current.fxtree.currentItem
+    else
+      DocMan.instance.current.topwin.userData.treeitem
+    end
+    name = DocMan.instance.current.make_class_name @item
+    @node.text = name
+    @className.text = capitalize(@item.to_s) unless @locked.state
+    # can only write if a filename is given:
+    @OK.enabled = (@fs.textfield.text.size > 0)
+    # save state to the document
+    DocMan.instance.current.gendlg_state = to_h
+  end
+
+  def show
+    initialize_fields
+    unless DocMan.instance.current
+      puts "no document found."
+      return
+    end
+    from_h DocMan.instance.current.gendlg_state
+    # @item=DocMan.instance.current.topwin.userData.treeitem
+    update
+    @topwin.show(PLACEMENT_SCREEN)
+  end
+
+  def hide
+    DocMan.instance.current.gendlg_state = to_h
+    @topwin.hide
+  end
+
+  def generate
+    # puts "generate"
+    DocMan.instance.current.gendlg_state = to_h
+    s = ""
+    begin
+      s = DocMan.instance.generate_code "ruby.#{@format}", @item, capitalize(@className.text), true
+    rescue Exception
+      s = $!.to_s + "\n\t" + $!.backtrace.join("\n\t")
+    end
+    # puts "generated source:",s
+    s
+  end
+end
+
+if __FILE__ == $0
+  Dir.chdir ".."
+  $: << "gui"
+  require "libGUIb14"
+  app = FX::App.new
+  w = GenRubyDialog.new app
+  w.topwin.show(0)
+  app.create
+  app.run
+end

data/src/gui/guib__console.rb

@@ -0,0 +1,265 @@
+class BaseConsole
+  def initialize(parent)
+    construct_widget_tree(parent)
+    init if respond_to? :init
+  end
+
+  def construct_widget_tree(parent)
+    @topwin =
+      FX::DialogBox.new(parent) { |w|
+        @BaseConsole = w
+        w.padLeft = 0
+        w.width = 638
+        w.padRight = 0
+        w.shown = true
+        w.y = 336
+        w.height = 441
+        w.padBottom = 0
+        w.title = "Console Window"
+        w.padTop = 0
+        w.x = 270
+        FX::Splitter.new(@BaseConsole) { |w|
+          @Splitter = w
+          w.backColor = Fox::FXRGBA(198, 198, 198, 255)
+          w.width = 638
+          w.height = 441
+          w.splitterStyle = 131072
+          FX::VerticalFrame.new(@Splitter) { |w|
+            @RightFrame = w
+            w.backColor = Fox::FXRGBA(138, 138, 138, 255)
+            w.padLeft = 0
+            w.frameStyle = 12288
+            w.width = 468
+            w.padRight = 0
+            w.height = 441
+            w.vSpacing = 1
+            w.x = 0
+            FX::HorizontalFrame.new(@RightFrame) { |w|
+              @HorizontalFrame5 = w
+              w.baseColor = Fox::FXRGBA(238, 238, 238, 255)
+              w.backColor = Fox::FXRGBA(238, 238, 238, 255)
+              w.padLeft = 0
+              w.frameStyle = 0
+              w.width = 466
+              w.padRight = 0
+              w.y = 1
+              w.height = 19
+              w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+              w.layoutHints = 1024
+              w.x = 1
+              FX::Label.new(@HorizontalFrame5) { |w|
+                @Label5 = w
+                w.text = "LANGID_ADDRESS|:"
+                w.backColor = Fox::FXRGBA(238, 238, 238, 255)
+                w.width = 101
+                w.x = 0
+              }
+              FX::ComboBox.new(@HorizontalFrame5) { |w|
+                @AddressComboBox = w
+                w.baseColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.width = 365
+                w.selBackColor = Fox::FXRGBA(49, 106, 197, 255)
+                w.y = 0
+                w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+                w.comboStyle = 524288
+                w.layoutHints = 1024
+                w.x = 101
+              }
+            }
+            FX::Text.new(@RightFrame) { |w|
+              @text = w
+              w.textTextStyle = 3145728
+              w.font = Font.new.from_s("Arial|90|400|1|0|0|0").to_FXFont
+              w.width = 466
+              w.y = 21
+              w.height = 401
+              w.textColor = Fox::FXRGBA(138, 138, 138, 255)
+              w.x = 1
+            }
+            FX::HorizontalFrame.new(@RightFrame) { |w|
+              @HorizontalFrame = w
+              w.padLeft = 0
+              w.frameStyle = 0
+              w.width = 466
+              w.padRight = 0
+              w.y = 423
+              w.height = 17
+              w.layoutHints = 1024
+              w.x = 1
+              FX::Label.new(@HorizontalFrame) { |w|
+                @Label4 = w
+                w.text = "LANGID_CMDLN| >"
+                w.backColor = Fox::FXRGBA(245, 245, 220, 255)
+                w.width = 96
+                w.x = 0
+              }
+              FX::TextField.new(@HorizontalFrame) { |w|
+                @cmdln = w
+                w.backColor = Fox::FXRGBA(245, 245, 220, 255)
+                w.frameStyle = 0
+                w.width = 370
+                w.y = 0
+                w.height = 17
+                w.layoutHints = 1024
+                w.x = 96
+              }
+            }
+          }
+          FX::VerticalFrame.new(@Splitter) { |w|
+            @LeftFrame = w
+            w.baseColor = Fox::FXRGBA(238, 238, 238, 255)
+            w.backColor = Fox::FXRGBA(238, 238, 238, 255)
+            w.padLeft = 0
+            w.frameStyle = 12288
+            w.width = 166
+            w.padRight = 0
+            w.height = 441
+            w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+            w.x = 472
+            FX::MenuButton.new(@LeftFrame) { |w|
+              @MenuButton = w
+              w.baseColor = Fox::FXRGBA(236, 233, 216, 255)
+              w.text = "LANGID_CONSOLE_MENU"
+              w.backColor = Fox::FXRGBA(238, 238, 238, 255)
+              w.width = 143
+              w.y = 1
+              w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+              w.menuButtonStyle = 33554432
+              w.x = 1
+              FX::MenuPane.new(@MenuButton) { |w|
+                @MenuPane = w
+                w.baseColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.backColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.y = 430
+                w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+                w.x = 735
+              }
+            }
+            FX::TabBook.new(@LeftFrame) { |w|
+              @TabBook = w
+              w.baseColor = Fox::FXRGBA(238, 238, 238, 255)
+              w.backColor = Fox::FXRGBA(238, 238, 238, 255)
+              w.padLeft = 0
+              w.current = 0
+              w.width = 164
+              w.padRight = 0
+              w.tabStyle = 131072
+              w.y = 18
+              w.height = 422
+              w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+              w.padBottom = 0
+              w.padTop = 0
+              w.x = 1
+              FX::TabItem.new(@TabBook) { |w|
+                @HistoryTabItem = w
+                w.baseColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.text = "LANGID_HISTORY"
+                w.backColor = Fox::FXRGBA(238, 238, 238, 255)
+                w.width = 98
+                w.y = 399
+                w.height = 23
+                w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+                w.tabOrientation = 25165824
+              }
+              FX::VerticalFrame.new(@TabBook) { |w|
+                @HistoryFrame = w
+                w.baseColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.backColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.padLeft = 0
+                w.frameStyle = 12288
+                w.width = 164
+                w.padRight = 0
+                w.borderColor = Fox::FXRGBA(135, 135, 135, 255)
+                w.y = 0
+                w.height = 401
+                w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+                w.x = 0
+                FX::Text.new(@HistoryFrame) { |w|
+                  @HistoryText = w
+                  w.textTextStyle = 69206016
+                  w.font = Font.new.from_s("Arial|90|400|1|0|0|0").to_FXFont
+                  w.width = 162
+                  w.y = 1
+                  w.height = 399
+                  w.textColor = Fox::FXRGBA(138, 138, 138, 255)
+                  w.barColor = Fox::FXRGBA(190, 190, 190, 255)
+                  w.x = 1
+                }
+              }
+              FX::TabItem.new(@TabBook) { |w|
+                @CmdsTabItem = w
+                w.baseColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.text = "LANGID_COMMANDS"
+                w.backColor = Fox::FXRGBA(238, 238, 238, 255)
+                w.width = 109
+                w.y = 399
+                w.height = 21
+                w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+                w.tabOrientation = 25165824
+                w.x = 97
+              }
+              FX::VerticalFrame.new(@TabBook) { |w|
+                @CmdsFrame = w
+                w.baseColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.backColor = Fox::FXRGBA(236, 233, 216, 255)
+                w.padLeft = 0
+                w.frameStyle = 12288
+                w.width = 164
+                w.padRight = 0
+                w.borderColor = Fox::FXRGBA(143, 143, 143, 255)
+                w.y = 0
+                w.height = 401
+                w.shadowColor = Fox::FXRGBA(172, 168, 153, 255)
+                w.x = 0
+                FX::Text.new(@CmdsFrame) { |w|
+                  @CmdsText = w
+                  w.backColor = Fox::FXRGBA(238, 238, 238, 255)
+                  w.textTextStyle = 70254592
+                  w.font = Font.new.from_s("Arial|90|400|1|0|0|0").to_FXFont
+                  w.width = 162
+                  w.y = 1
+                  w.height = 399
+                  w.barColor = Fox::FXRGBA(236, 233, 216, 255)
+                  w.x = 1
+                }
+              }
+            }
+          }
+        }
+      }
+  end
+  attr_accessor :topwin,
+    :BaseConsole,
+    :Splitter,
+    :RightFrame,
+    :HorizontalFrame5,
+    :Label5,
+    :AddressComboBox,
+    :text,
+    :HorizontalFrame,
+    :Label4,
+    :cmdln,
+    :LeftFrame,
+    :MenuButton,
+    :MenuPane,
+    :TabBook,
+    :HistoryTabItem,
+    :HistoryFrame,
+    :HistoryText,
+    :CmdsTabItem,
+    :CmdsFrame,
+    :CmdsText,
+    :__foxGUIb__last__
+end
+
+s = "BaseConsole-extension.rb"
+require s if File.exist?(s)
+# unit test
+if __FILE__ == $0
+  require "libGUIb14"
+  app = FX::App.new
+  w = BaseConsole.new app
+  w.topwin.show(0)
+  app.create
+  app.run
+end

data/src/gui/mainwin.rb

@@ -0,0 +1,71 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+# initialisation of the foxGUIb main window
+require "_guib_mainwin"
+require "event_editor"
+require "textview"
+
+class MainWin
+  def init
+    @topwin.title = "#{FOXGUIB} - Interactive FOX GUI Builder and Code Generator"
+    @open_project.connect(SEL_COMMAND) { DocMan.instance.set_wdir }
+    @new_mainwin.connect(SEL_COMMAND) { DocMan.instance.create "mainwin" }
+    @new_dialog.connect(SEL_COMMAND) { DocMan.instance.create "dlg" }
+    @open_dialog.connect(SEL_COMMAND) { DocMan.instance.load }
+    @close_dialog.connect(SEL_COMMAND) { DocMan.instance.close }
+    @save_dialog.connect(SEL_COMMAND) { DocMan.instance.save }
+    @save_dialog_as.connect(SEL_COMMAND) { DocMan.instance.save_as }
+    @genruby.connect(SEL_COMMAND) {
+      DocMan.instance.genruby
+    }
+    @viewEventEditor.connect(SEL_COMMAND) {
+      EventEditor.instance.show
+    }
+    @viewRubyConsole.connect(SEL_COMMAND) {
+      $console.topwin.show(PLACEMENT_SCREEN)
+    }
+    @viewDialog.connect(SEL_COMMAND) {
+      DocMan.instance.current.topwin.show(PLACEMENT_SCREEN)
+    }
+    # ~ @hideDialog.connect(SEL_COMMAND) {
+    # ~ DocMan.instance.current.topwin.hide
+    # ~ }
+    @about.connect(SEL_COMMAND) { about }
+    @quit.connect(SEL_COMMAND) { exit }
+    @topwin.connect(SEL_CLOSE) { exit }
+  end
+
+  def exit
+    DocMan.instance.ask_save
+    DocMan.instance.save_all
+    $fxapp.exit
+  end
+
+  def about
+    # ~ puts "about"
+    # $console.topwin.show(0)
+    tv = TextView.new(@topwin)
+    tv.topwin.resize(600, 400)
+    tv.heading.text = "About foxGUIb:"
+    msg = [
+      "Created by Henon, Copyright (c) 2004-2006, (mail: meinrad.recheis#gmail.com)",
+      "License: \"Artistic License\". The source of foxGUIb including the libGUIb library may be changed and redistributed if the license and copyrights are kept.",
+      "Any generated sources are free to use (commercial or noncommercial) but the author of foxGUIb does not take any responsibilities.",
+      "",
+      "Homepage: http://fox-tool.rubyforge.org",
+      "Users Guide: http://www.mikeparr.info/rubyguib/foxguibhome.htm",
+      "Rubyforge: http://rubyforge.org/projects/fox-tool/",
+      "",
+      "foxGUIb version: #{FOXGUIB_VERSION}",
+      "\tFXRuby version: #{Fox.fxrubyversion}",
+      "\tFOX version: #{Fox.fxversion}\n\n"
+    ]
+    # $console.styled_out($console.s_cmd, msg.join("\n\t"))
+    tv.Text.appendText msg.join("\n")
+    Loader.new(HOME).load("license.rd") { |text|
+      tv.Text.appendText(text)
+    }
+    tv.topwin.show
+    tv.topwin.create
+  end
+end