libguib 1.1.0

data/libguib.gemspec

@@ -0,0 +1,23 @@
+Gem::Specification.new do |spec|
+  spec.name = "libguib"
+  spec.version = "1.1.0"
+  spec.authors = ["Meinrad Recheis aka Henon", "Lars Kanis"]
+  spec.email = ["meinrad.recheis@gmail.com", "lars@greiz-reinsdorf.de"]
+
+  spec.summary = "Helper library for foxGUIb"
+  spec.description = "Helper library for the Fox GUI builder"
+  spec.homepage = "https://github.com/larskanis/foxGUIb"
+  spec.license = "LGPL-2.1"
+
+  spec.files = `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features)/}) }
+  spec.bindir = "exe"
+  spec.executables = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+
+  spec.required_ruby_version = [">= 2.5", "< 4.0"]
+
+  spec.add_runtime_dependency "fxruby", "~> 1.6.0"
+
+  spec.add_development_dependency "bundler", ">= 1.11", "<= 3.0"
+  spec.add_development_dependency "rake", "~> 13.0"
+end

data/readme.txt

@@ -0,0 +1,14 @@
+libGUIb is the foxGUIb library required by the foxGUIb editor and all pieces of generated code. 
+it includes the FX API which is a facade of the FXRuby API. foxGUIb is an interactive gui builder 
+for fxruby. fxruby is the ruby binding of the Fox Toolkit.
+
+libGUIb and foxGUIb are copyrighted by Meinrad Recheis aka Henon. (c) 2006
+
+
+INSTALLATION:
+
+To install libGUIb execute the file install.rb like this:
+
+# ruby install.rb
+
+LICENSE: LGPL

data/src/Container.rb

@@ -0,0 +1,103 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+if __FILE__ == $0
+  Dir.chdir ".."
+  require "FX"
+end
+
+module FX
+  class Container < FX::VerticalFrame
+    attr_reader :header, :hsep
+
+    def initialize(parent)
+      super
+      boxMinusPNG_Str =
+        "9805e474d0a0a1a0000000d09484442500000090000000904030000010568bb25b000000704794d4" +
+        "54704d50016041822c41f2b600000090078495370000b0210000b021102ddde7cf000000407614d4" +
+        "1400001bf8b0cf16500000009005c44554484848ffffff0000003e75793f000000229444144587ad" +
+        "3606082062011a404cc82801c0402828c024a80221c2c28288584000525c10091d50980600000000" +
+        "9454e444ea240628"
+      boxPlusPNG_Str =
+        "9805e474d0a0a1a0000000d09484442500000090000000904030000010568bb25b000000704794d4" +
+        "54704d50016041c0ef71bcab00000090078495370000b0210000b021102ddde7cf000000407614d4" +
+        "1400001bf8b0cf16500000009005c44554484848ffffff0000003e75793f000000729444144587ad" +
+        "3606082062011a404cc8a801c0402828c024a8022142c2802a91505119840a8000c25a100daa1682" +
+        "d9000000009454e444ea240628"
+      self.padLeft = 0
+      self.frameStyle = 12288
+      self.layoutHints = Fox::LAYOUT_FILL_X
+      self.padRight = 0
+      @openIcon = Icon.LoadFromString boxMinusPNG_Str
+      @closedIcon = Icon.LoadFromString boxPlusPNG_Str
+      FX::Label.new(self) { |w|
+        @header = w
+        w.layoutHints = Fox::LAYOUT_FILL_X
+        w.iconPosition = Fox::ICON_BEFORE_TEXT
+        w.justify = Fox::JUSTIFY_LEFT
+        w.icon = @openIcon.img
+        @open = true
+      }
+      FX::HorizontalSeparator.new(self) { |w|
+        @hsep = w
+        w.padLeft = 0
+        w.padRight = 0
+      }
+      @header.connect(SEL_LEFTBUTTONPRESS) {
+        if @open
+          close_body
+        else
+          open_body
+        end
+      }
+    end
+
+    def close_body
+      @open = false
+      @header.icon = @closedIcon.img
+      children.each { |ch|
+        next if ch == @header
+        ch.hide
+      }
+      if layoutHints & LAYOUT_FILL_Y == LAYOUT_FILL_Y
+        self.layoutHints -= LAYOUT_FILL_Y
+        @fill_y = true
+      else
+        @fill_y = false
+      end
+      recalc
+    end
+
+    def open_body
+      @open = true
+      @header.icon = @openIcon.img
+      children.each { |ch|
+        next if ch == @header
+        ch.show
+      }
+      self.layoutHints |= LAYOUT_FILL_Y if @fill_y
+      recalc
+    end
+
+    def title=(text)
+      @header.text = text
+    end
+
+    def title
+      @header.text
+    end
+  end
+end
+# unit test
+if __FILE__ == $0
+  app = App.new
+  mw = MainWindow.new app
+  w = Container.new mw
+  # ~ w.header.iconPosition=ICON_AFTER_TEXT
+  w.layoutHints = LAYOUT_FIX_WIDTH
+  w.width = 150
+  w.header.text = "header"
+  Button.new w
+  mw.show(0)
+  app.create
+  app.run
+end

data/src/FileSelector.rb

@@ -0,0 +1,43 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "_guib_FileSelector"
+
+class FileSelector
+  def init
+    @title = "File Dialog"
+    @relative_path = false
+    @filename = ""
+
+    @directory = Dir.getwd
+    @dialog = Fox::FXFileDialog.new(@topwin, @title)
+    @patterns = ["All Files (*)"]
+    @currentPattern = 0
+    @browse.connect(Fox::SEL_COMMAND, method(:onBrowse))
+  end
+  attr_accessor :directory, :patterns, :currentPattern, :title, :filename, :relative_path
+  attr_accessor :onNewFilenameBlock
+  def description=text
+    @label.text = text
+  end
+
+  def description
+    @label.text
+  end
+
+  def onBrowse(*args)
+    @dialog.title = @title
+    @dialog.directory = @directory
+    @dialog.patternList = @patterns
+    @currentPattern = 0 if @currentPattern >= @patterns.size
+    @dialog.currentPattern = @currentPattern
+    @dialog.filename = filename.to_s
+    if @dialog.execute != 0
+      @filename = @textfield.text = if @relative_path
+                    rel_path(Dir.getwd, @dialog.filename)
+                  else
+                    @dialog.filename
+                  end
+      @onNewFilenameBlock.call if @onNewFilenameBlock.respond_to? :call
+    end
+  end
+end

data/src/PathSelector-extension.rb

@@ -0,0 +1,37 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "relative-path"
+class PathSelector
+  def init
+    @title = "Directory Dialog"
+    @relative_path = false
+    @directory = Dir.getwd
+    update(@directory)
+    @dialog = FXDirDialog.new(@topwin, @title)
+    @browse.connect(SEL_COMMAND, method(:onBrowse))
+  end
+  attr_accessor :directory, :title, :filename, :relative_path
+  def description=text
+    @label.text = text
+  end
+
+  def description
+    @label.text
+  end
+
+  def onBrowse(*args)
+    @dialog.title = @title
+    @dialog.directory = @directory
+    if @dialog.execute != 0
+      update(@dialog.directory)
+    end
+  end
+
+  def update(path)
+    @directory = @textfield.text = if @relative_path
+                   rel_path(Dir.getwd, path)
+                 else
+                   path
+                 end
+  end
+end

data/src/PathSelector.rb

@@ -0,0 +1,62 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+class PathSelector
+  def initialize(parent)
+    construct_widget_tree(parent)
+    init if respond_to? :init
+  end
+
+  def construct_widget_tree(parent)
+    @topwin =
+      FX::HorizontalFrame.new(parent) { |w|
+        @PathSelector = w
+        w.padLeft = 0
+        w.frameStyle = 0
+        w.padRight = 0
+        w.hSpacing = 2
+        w.height = 21
+        w.layoutHints = 1024
+        FX::Label.new(@PathSelector) { |w|
+          @label = w
+          w.text = "Path:"
+          w.width = 30
+          w.x = 0
+        }
+        FX::TextField.new(@PathSelector) { |w|
+          @textfield = w
+          w.width = 291
+          w.y = 0
+          w.layoutHints = 1024
+          w.x = 32
+        }
+        FX::Button.new(@PathSelector) { |w|
+          @browse = w
+          w.text = "Browse..."
+          w.padLeft = 4
+          w.width = 59
+          w.padRight = 4
+          w.y = 0
+          w.x = 325
+        }
+      }
+  end
+  attr_accessor :topwin,
+    :PathSelector,
+    :label,
+    :textfield,
+    :browse,
+    :__foxGUIb__last__
+end
+s = "PathSelector-extension.rb"
+require s if File.exist?(s)
+# unit test
+if __FILE__ == $0
+  Dir.chdir ".."
+  require "FX"
+  app = App.new
+  mw = MainWindow.new app
+  w = PathSelector.new mw
+  mw.show(0)
+  app.create
+  app.run
+end

data/src/__FX__.rb

@@ -0,0 +1,17 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "fox16"
+
+require	"relative-path"
+require	"app"
+require	"fxbase"
+require	"fxobjects"
+require	"main-window"
+require	"middle-right-mouse"
+require	"FileSelector"
+require	"PathSelector"
+require	"Container"
+require	"radio_matrix"
+require	"table"
+require	"style"
+require	"dcwindow"

data/src/_guib_FileSelector.rb

@@ -0,0 +1,60 @@
+class FileSelector
+  def initialize(parent)
+    construct_widget_tree(parent)
+    init if respond_to? :init
+  end
+
+  def construct_widget_tree(parent)
+    @topwin =
+      FX::HorizontalFrame.new(parent) { |w|
+        @FileSelector = w
+        w.padLeft = 0
+        w.frameStyle = 0
+        w.padRight = 0
+        w.hSpacing = 2
+        w.height = 21
+        w.layoutHints = 1024
+        FX::Label.new(@FileSelector) { |w|
+          @label = w
+          w.text = "File:"
+          w.width = 24
+          w.x = 0
+        }
+        FX::TextField.new(@FileSelector) { |w|
+          @textfield = w
+          w.width = 297
+          w.y = 0
+          w.layoutHints = 1024
+          w.x = 26
+        }
+        FX::Button.new(@FileSelector) { |w|
+          @browse = w
+          w.text = "Browse..."
+          w.padLeft = 4
+          w.width = 59
+          w.padRight = 4
+          w.y = 0
+          w.x = 325
+        }
+      }
+  end
+  attr_accessor :topwin,
+    :FileSelector,
+    :label,
+    :textfield,
+    :browse,
+    :__foxGUIb__last__
+end
+# ~ s='FileSelector-extension.rb'
+# ~ require s if File.exist?(s)
+# unit test
+if __FILE__ == $0
+  Dir.chdir ".."
+  require "FX"
+  app = App.new
+  mw = MainWindow.new app
+  w = FileSelector.new mw
+  mw.show(0)
+  app.create
+  app.run
+end

data/src/app.rb

@@ -0,0 +1,21 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+module FX
+  class App < Fox::FXApp
+    def initialize a = "", b = ""
+      super
+      @created = false
+      $app = $fxapp = self
+      # $fxtooltip=FXTooltip.new $fxapp
+    end
+
+    def create(*args)
+      super
+      @created = true
+    end
+
+    def created?
+      @created
+    end
+  end
+end # FX

data/src/dcwindow.rb

@@ -0,0 +1,88 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "event_listener"
+require "fxbase"
+module FX
+  # adding support for variable origin to DC, which allows drawing with relative coordinates
+  class DCWindow < Fox::FXDCWindow
+    def initialize(*args)
+      super
+      setOrigin(0, 0)
+    end
+
+    def getOrigin
+      [@xOrigin, @yOrigin]
+    end
+
+    def setOrigin x = 0, y = 0
+      @xOrigin = x
+      @yOrigin = y
+      @originStack = [x, y]
+    end
+
+    def pushOrigin x = 0, y = 0
+      @xOrigin += x
+      @yOrigin += y
+      @originStack.push [@xOrigin, @yOrigin]
+    end
+
+    def popOrigin
+      @originStack.pop if @originStack.size > 1
+      @xOrigin, @yOrigin = @originStack.last
+    end
+
+    def drawText x, y, text, bg = false
+      if bg
+        drawImageText(@xOrigin + x, @yOrigin + y, text)
+      else
+        super(@xOrigin + x, @yOrigin + y, text)
+      end
+    end
+
+    def drawImageText x, y, text
+      super(@xOrigin + x, @yOrigin + y, text)
+    end
+
+    def drawLine x, y, x1, y1
+      super(@xOrigin + x, @yOrigin + y, @xOrigin + x1, @yOrigin + y1)
+    end
+
+    def fillRectangle x, y, w, h
+      super(@xOrigin + x, @yOrigin + y, w, h)
+    end
+
+    def drawRectangle x, y, w, h
+      super(@xOrigin + x, @yOrigin + y, w, h)
+    end
+  end
+
+  class DrawingCanvas < Canvas
+    __sends__ :event_draw
+    def initialize parent
+      super(parent, Fox::LAYOUT_FILL_X | Fox::LAYOUT_FILL_Y)
+      @stdFont = Fox::FXFont.new($fxapp, "[helvetica] 90 700 1 1 0 0")
+      @stdFont.create
+      connect(Fox::SEL_PAINT) { |sender, sel, event|
+        resize parent.width, parent.height if width != parent.width or height != parent.height
+        dc = DCWindow.new self
+        dc.font = @stdFont
+        event_draw(dc, event, self)
+        dc.end
+      }
+    end
+  end
+end
+if __FILE__ == $0
+  $stdout.sync = true
+  include FX
+  app = App.new
+  mw = MainWindow.new app
+  canvas = DrawingCanvas.new mw
+  canvas.on_draw { |dc, event, c|
+    dc.fillRectangle 0, 0, canvas.width, canvas.height
+  }
+  mw.resize 400, 300
+  mw.show
+  app.create
+  app.run
+end

data/src/event_listener.rb

@@ -0,0 +1,59 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+class Module
+  def __sends__ *args
+    args.each { |arg|
+      class_eval <<-CEEND, __FILE__, __LINE__ + 1
+                def on_#{arg}(&callback)
+                    @#{arg}_observers ||= {}
+                    @#{arg}_observers[caller[0]]=callback
+		    return caller[0]
+                end
+		def del_#{arg}(id)
+			@#{arg}_observers ||= {}
+			return @#{arg}_observers.delete( id)
+		end
+                private
+                def #{arg} *the_args
+                    @#{arg}_observers ||= {}
+                    @#{arg}_observers.each { |caller, cb|
+                        cb.call *the_args
+                    }
+                end
+      CEEND
+    }
+  end
+end
+
+# MAKE_CUTOFF
+
+if __FILE__ == $0
+  class TextBox
+    __sends__ "text_changed", "key_pressed"
+
+    def initialize txt = ""
+      @txt = txt
+    end
+
+    def txt= txt
+      @txt = txt
+      text_changed
+    end
+
+    def key_press key
+      key_pressed key
+    end
+  end
+
+  box = TextBox.new
+  text_changed_id = box.on_text_changed { puts "Text changed!" }
+  5.times { |i|
+    box.on_key_pressed { |k| puts "(#{i}) Key pressed: #{k}" }
+  }
+
+  box.txt = "New text!"
+  box.del_text_changed(text_changed_id)
+  box.txt = "New text!"
+
+  box.key_press "j"
+end

data/src/fox_classes.rb

@@ -0,0 +1,22 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "fxruby"
+require "__FX__"
+# include Fox
+
+widgets = Fox.constants.find_all { |c|
+  begin
+    c.to_s =~ /^FX/ and Object.const_get(c).ancestors.include? FXWindow
+  rescue
+    # puts "!"+c
+  end
+}
+puts "Found #{widgets.size} Fox Widgets."
+puts
+widgets.sort.each { |wclass|
+  have = FX.constants.include?(wclass.gsub(/^FX/, ""))
+  print "<code>" if have
+  print "#{wclass}"
+  print "</code>" if have
+  puts "<br>"
+}