foxguib 1.1.0

data/src/widgettree-controls.rb

@@ -0,0 +1,183 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "relink_mechanisms"
+
+module WidgettreeControls
+  # copy/paste clipboard
+  $clipboard = []
+
+  def onClick wdg
+    item = wdg.userData.treeitem
+    if item.nil?
+      error "this widget's item is nil", wdg.to_s
+      return
+    end
+    @fxtree.currentItem = item
+    expand_parents item
+    mark wdg
+    wdg.update_properties
+    # ~ @updateBrowserButtons.call item
+    # ~ unless $mvdestLbl.nil?
+    # ~ $mvdest=item
+    # ~ $mvdestLbl.text=item.to_s
+    # ~ $mvdestLbl.shell.forceRefresh
+    # ~ end
+  end
+
+  def create_dlg
+    @fxtree = TreeList.new(MAINWIN.Switcher, TREELIST_BROWSESELECT | TREELIST_SHOWS_LINES | TREELIST_SHOWS_BOXES)
+    @fxtree.backColor = STD_BACK_COLOR
+    @fxtree.create
+    @switcherIndex = MAINWIN.Switcher.numChildren - 1
+    @root = @fxtree.appendItem nil, "root"
+    @fxtree.connect(SEL_COMMAND, method(:item_click))
+    @wdgMenu = WidgetMenu.new(MAINWIN.topwin)
+    $__popup__ = @wdgMenu if $DEBUG
+    @wdgMenu.on_cmd_cut { |wdg|
+      @wdgMenu.send :cmd_copy
+      @wdgMenu.send :cmd_delete
+    }
+    @wdgMenu.on_cmd_copy {
+      # ~ puts "copy"
+      wdg = @w[@fxtree.currentItem.to_s]
+      widgetlist = []
+      traverse(wdg, widgetlist)
+      $clipboard << widgetlist
+    }
+    @wdgMenu.on_cmd_paste { |where|
+      # ~ puts "paste #{where}"
+      wdg = @w[@fxtree.currentItem.to_s]
+      widgetlist = $clipboard.last
+      load_widgettree(widgetlist, where, wdg)
+    }
+    @wdgMenu.on_cmd_jumpup {
+      # ~ puts "jumpup"
+      item = @fxtree.currentItem
+      relink_wdg item, "before", item.prev unless item.prev.nil? or item.prev == @root
+    }
+    @wdgMenu.on_cmd_jumpdown {
+      # ~ puts "jumpdown"
+      item = @fxtree.currentItem
+      relink_wdg item, "after", item.next unless item.next.nil?
+    }
+    @wdgMenu.on_cmd_delete {
+      # ~ puts "delete"
+      unmark
+      item = @fxtree.currentItem
+      wdg = @w[item.to_s]
+      wdg.parent.removeChild wdg
+      @w.delete(item.to_s)
+      # @marked=nil
+      @fxtree.removeItem(item)
+      # updating:
+      item = @fxtree.currentItem
+      wdg = @w[item.to_s]
+      wdg.update_properties
+    }
+    @wdgMenu.on_cmd_events {
+      EventEditor.instance.show
+    }
+    @fxtree.connect(SEL_RIGHTBUTTONPRESS) { |sender, sel, e|
+      item = @fxtree.getCursorItem
+      if item
+        @fxtree.currentItem = item
+      else
+        item = @fxtree.currentItem
+      end
+      # item.setFocus(false)
+      next if item == @root
+      widget = @w[item.to_s]
+      onClick widget
+      @wdgMenu.popup_over(widget, e.rootclick_x, e.rootclick_y)
+      # 1
+    }
+  end
+
+  class WidgetMenu
+    __sends__ :cmd_jumpup,
+      :cmd_jumpdown,
+      :cmd_cut,
+      :cmd_copy,
+      :cmd_paste,
+      :cmd_delete,
+      :cmd_events
+
+    def initialize parent
+      @popup = FXPopup.new parent
+      @title = FXMenuCaption.new @popup, "@popup_title"
+      FXMenuSeparator.new @popup
+      cmd "events", "Edit events ..."
+      cmd "---"
+      cmd "jumpup", "Jump up"
+      cmd "jumpdown", "Jump down"
+      cmd "---"
+      cmd "cut", "Cut"
+      cmd "copy", "Copy"
+      ["before", "after", "inside"].each { |where|
+        instance_eval %{
+					def self.cmd_paste_#{where}(*args)
+						cmd_paste "#{where}"
+					end
+				}, __FILE__, __LINE__ - 4
+        cmd "paste_#{where}", "Paste #{where}"
+      }
+      cmd "delete", "Delete"
+      cmd "---"
+      cmd "cancel", "Cancel"
+      @popup.create if $fxapp.created?
+    end
+
+    def popup_over widget, x, y
+      # paste concerns: is it possible to paste before, after or inside this widget?
+      ["before", "after", "inside"].each { |where|
+        cmd = instance_variable_get(:"@mc_paste_#{where}")
+        cmd.enabled = RelinkMechanisms.insert_possible?(where, widget)
+        cmd.enabled = false if $clipboard.nil? or $clipboard.empty?
+      }
+      @mc_jumpup.enabled = !widget.prev.nil?
+      @mc_jumpdown.enabled = !widget.next.nil?
+      [@mc_cut, @mc_delete, @mc_copy].each { |mc| mc.enabled = true }
+      [@mc_cut, @mc_delete, @mc_copy, @mc_jumpup, @mc_jumpdown].each { |mc|
+        mc.enabled = false if widget.is_a?(Fox::FXTopWindow)
+      }
+      @title.text = "[ #{widget.class} ]"
+      @popup.popup nil, x, y
+    end
+
+    private
+
+    def cmd name, text = nil
+      if name == "---"
+        MenuSeparator.new(@popup)
+      else
+        text ||= name
+        MenuCommand.new(@popup) { |c|
+          instance_variable_set :"@mc_#{name}", c
+          c.text = text
+          c.connect(SEL_COMMAND) {
+            m = "cmd_#{name}"
+            send m
+          }
+        }
+      end
+    end
+
+    def method_missing(*args)
+      puts "WidgetMenu#method missing: #{args.inspect}" if $DEBUG
+    end
+  end
+
+  def item_click(*args)
+    item = args[2]
+    return if item == @root
+    unless $mvdestLbl.nil?
+      $mvdest = item
+      $mvdestLbl.text = item.to_s
+      $mvdestLbl.shell.forceRefresh
+    end
+    wdg = @w[item.to_s]
+    mark wdg if wdg
+    wdg.update_properties
+    # ~ @updateBrowserButtons.call item
+  end
+end # module

metadata

@@ -0,0 +1,236 @@
+--- !ruby/object:Gem::Specification
+name: foxguib
+version: !ruby/object:Gem::Version
+  version: 1.1.0
+platform: ruby
+authors:
+- Meinrad Recheis aka Henon
+- Lars Kanis
+autorequire:
+bindir: exe
+cert_chain:
+- |
+  -----BEGIN CERTIFICATE-----
+  MIIDLjCCAhagAwIBAgIBDDANBgkqhkiG9w0BAQsFADA9MQ4wDAYDVQQDDAVrYW5p
+  czEXMBUGCgmSJomT8ixkARkWB2NvbWNhcmQxEjAQBgoJkiaJk/IsZAEZFgJkZTAe
+  Fw0yNDA1MDIxMTAwNDVaFw0yNTA1MDIxMTAwNDVaMD0xDjAMBgNVBAMMBWthbmlz
+  MRcwFQYKCZImiZPyLGQBGRYHY29tY2FyZDESMBAGCgmSJomT8ixkARkWAmRlMIIB
+  IjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEApop+rNmg35bzRugZ21VMGqI6
+  HGzPLO4VHYncWn/xmgPU/ZMcZdfj6MzIaZJ/czXyt4eHpBk1r8QOV3gBXnRXEjVW
+  9xi+EdVOkTV2/AVFKThcbTAQGiF/bT1n2M+B1GTybRzMg6hyhOJeGPqIhLfJEpxn
+  lJi4+ENAVT4MpqHEAGB8yFoPC0GqiOHQsdHxQV3P3c2OZqG+yJey74QtwA2tLcLn
+  Q53c63+VLGsOjODl1yPn/2ejyq8qWu6ahfTxiIlSar2UbwtaQGBDFdb2CXgEufXT
+  L7oaPxlmj+Q2oLOfOnInd2Oxop59HoJCQPsg8f921J43NCQGA8VHK6paxIRDLQID
+  AQABozkwNzAJBgNVHRMEAjAAMAsGA1UdDwQEAwIEsDAdBgNVHQ4EFgQUvgTdT7fe
+  x17ugO3IOsjEJwW7KP4wDQYJKoZIhvcNAQELBQADggEBAH+LA+CcA9vbbqtuhK4J
+  lG1lQwA+hCKiueQgVsepNbXyDzx6PMC8ap/bFaKSaoUWABBA/bsh3jDNXT/eVZrN
+  lFP8cVGrznSYIBG8D/QQmJKpvDBJgnC4Zk01HkhYlqJC4qCTn9X+/uZNHLPLbAEL
+  xl3P43zyL3GQb1IP9bp0xV6oxwG9FO9Rk8bYDojky/69ylowFI5aODS39v01Siu2
+  FsEjM9tMSNb7lQRywQ/432KXi+8AAPTm+wdGnlt3wLE9w2TTpGUBsNKk+QiytTZO
+  zwbjAdVlRm0pg/vpDzzFmRf1GYVckMm8hpCRt8BP0akAbNyw1snYvZBwgLqxztru
+  bEo=
+  -----END CERTIFICATE-----
+date: 2024-07-02 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: fxruby
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 1.6.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 1.6.0
+- !ruby/object:Gem::Dependency
+  name: libguib
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.1'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.1'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '1.11'
+    - - "<="
+      - !ruby/object:Gem::Version
+        version: '3.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '1.11'
+    - - "<="
+      - !ruby/object:Gem::Version
+        version: '3.0'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '13.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '13.0'
+description: GUI builder for the Fox toolkit written in Ruby.
+email:
+- meinrad.recheis@gmail.com
+- lars@greiz-reinsdorf.de
+executables:
+- foxguib
+extensions: []
+extra_rdoc_files: []
+files:
+- changelog.txt
+- doc/www/index.html
+- doc/www/upload.rb
+- examples/event_handler.rb
+- examples/event_handlers.rbin
+- examples/guib_testdialog.rb
+- examples/testdialog.rb
+- exe/foxguib
+- foxGUIb-debug.rb
+- foxGUIb.rb
+- foxGUIb_win32.rbw
+- foxguib.gemspec
+- license.txt
+- readme.txt
+- release_notes.txt
+- src/assert.rb
+- src/cfgman.rb
+- src/code-gen/code-generator.rb
+- src/code-gen/property-generators.rb
+- src/code-gen/widget-generator.rb
+- src/convert.rb
+- src/direct_widget_manipulation.rb
+- src/docman.rb
+- src/document.rb
+- src/event_categories.yaml
+- src/event_listener.rb
+- src/events.yaml
+- src/events_docu.yaml
+- src/get_events.rb
+- src/gui/ArrowButton.tga
+- src/gui/BoxMinus.tga
+- src/gui/BoxPlus.tga
+- src/gui/Button.tga
+- src/gui/CheckButton.tga
+- src/gui/ComboBox.tga
+- src/gui/Dial.tga
+- src/gui/GroupBox.tga
+- src/gui/HorizontalFrame.tga
+- src/gui/HorizontalSeparator.tga
+- src/gui/Label.tga
+- src/gui/MDIChild.tga
+- src/gui/MDIClient.tga
+- src/gui/Matrix.tga
+- src/gui/MenuCaption.tga
+- src/gui/MenuCascade.tga
+- src/gui/MenuCheck.tga
+- src/gui/MenuCommand.tga
+- src/gui/MenuPane.tga
+- src/gui/MenuRadio.tga
+- src/gui/MenuSeparator.tga
+- src/gui/MenuTitle.tga
+- src/gui/Menubar.tga
+- src/gui/Packer.tga
+- src/gui/ProgressBar.tga
+- src/gui/RadioButton.tga
+- src/gui/RadioMutex.tga
+- src/gui/ScrollWindow.tga
+- src/gui/Scrollbar.tga
+- src/gui/Shutter.tga
+- src/gui/ShutterItem.tga
+- src/gui/Slider.tga
+- src/gui/Spinner.tga
+- src/gui/Splitter.tga
+- src/gui/StatusBar.tga
+- src/gui/Statusline.tga
+- src/gui/Switcher.tga
+- src/gui/TabBar.tga
+- src/gui/TabBook.tga
+- src/gui/TabItem.tga
+- src/gui/Text.tga
+- src/gui/TextField.tga
+- src/gui/ToggleButton.tga
+- src/gui/Toolbar.tga
+- src/gui/VerticalFrame.tga
+- src/gui/VerticalSeparator.tga
+- src/gui/_guib_event_editor.rb
+- src/gui/_guib_event_editor.rbin
+- src/gui/_guib_genruby.rb
+- src/gui/_guib_genruby.rbin
+- src/gui/_guib_mainwin.rb
+- src/gui/_guib_mainwin.rbin
+- src/gui/event_editor.rb
+- src/gui/genruby.rb
+- src/gui/guib__console.rb
+- src/gui/mainwin.rb
+- src/gui/ruby_console.rb
+- src/gui/svg/Matrix.svg
+- src/gui/svg/MenuCheck.svg
+- src/gui/svg/MenuRadio.svg
+- src/gui/svg/RadioMutex.svg
+- src/gui/textview.rb
+- src/gui/textview.rbin
+- src/minitest.rb
+- src/prop-lists.rb
+- src/prop-types.rb
+- src/properties.rb
+- src/propman.rb
+- src/relink_mechanisms.rb
+- src/serialize.rb
+- src/state_machine.rb
+- src/version.rb
+- src/widget-lists.rb
+- src/widget-selector.rb
+- src/widgettree-controls.rb
+homepage: https://github.com/larskanis/foxGUIb
+licenses:
+- Artistic License 1.0
+metadata: {}
+post_install_message:
+rdoc_options: []
+require_paths:
+- src
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '2.5'
+  - - "<"
+    - !ruby/object:Gem::Version
+      version: '4.0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.5.11
+signing_key:
+specification_version: 4
+summary: Fox GUI builder
+test_files: []