teek 0.1.3 → 0.1.4

data/lib/teek.rb

@@ -2,6 +2,7 @@
 
 require 'tcltklib'
 require_relative 'teek/version'
+require_relative 'teek/platform'
 require_relative 'teek/ractor_support'
 require_relative 'teek/widget'
 require_relative 'teek/photo'
@@ -242,8 +243,25 @@ module Teek
     # @return [String] the Tcl result
     def command(cmd, *args, **kwargs)
       parts = [cmd.to_s]
-      args.each do |arg|
-        parts << tcl_value(arg)
+      i = 0
+      while i < args.length
+        arg = args[i]
+        if arg.is_a?(Proc)
+          id = @interp.register_callback(arg)
+          subs = []
+          while i + 1 < args.length && args[i + 1].is_a?(String) && args[i + 1].start_with?('%')
+            subs << args[i + 1]
+            i += 1
+          end
+          parts << if subs.empty?
+                     "{ruby_callback #{id}}"
+                   else
+                     "{ruby_callback #{id} #{subs.join(' ')}}"
+                   end
+        else
+          parts << tcl_value(arg)
+        end
+        i += 1
       end
       kwargs.each do |key, value|
         parts << "-#{key}"
@@ -592,6 +610,7 @@ module Teek
       button: '%b',                        # mouse button number
       mouse_wheel: '%D',                   # mousewheel delta
       type: '%T',                          # event type
+      data: '%d',                          # virtual event data (Tk 8.6+)
     }.freeze
 
     def bind(widget, event, *subs, &block)
@@ -613,6 +632,22 @@ module Teek
       @interp.tcl_eval("bind #{widget} #{event_str} {}")
     end
 
+    # Register a widget as a file drop target.
+    # After registration, dropping files onto the widget generates a single
+    # +<<DropFile>>+ virtual event with all file paths as a Tcl list in the
+    # event data. Use {#split_list} to convert to a Ruby array.
+    # @param widget [String] Tk widget path (e.g., ".", ".frame")
+    # @return [void]
+    # @example
+    #   app.register_drop_target('.')
+    #   app.bind('.', '<<DropFile>>', :data) do |data|
+    #     paths = app.split_list(data)
+    #     puts "Dropped #{paths.length} file(s): #{paths.inspect}"
+    #   end
+    def register_drop_target(widget)
+      @interp.register_drop_target(widget.to_s)
+    end
+
     # Get the macOS window appearance. No-op (returns +nil+) on non-macOS.
     # @example
     #   app.appearance          # => "aqua", "darkaqua", or "auto"
@@ -760,7 +795,18 @@ module Teek
       when Array
         "{#{value.map { |v| tcl_value(v) }.join(' ')}}"
       else
-        "{#{value}}"
+        tcl_quote_string(value.to_s)
+      end
+    end
+
+    # Brace-quote a string for Tcl, falling back to double-quote quoting
+    # when the string ends with a backslash (Tcl treats \} as an escaped
+    # brace, preventing the closing brace from terminating the group).
+    def tcl_quote_string(s)
+      if s.end_with?('\\')
+        '"' + s.gsub(/[\\\[\]$"]/) { |c| "\\#{c}" } + '"'
+      else
+        "{#{s}}"
       end
     end
   end

data/teek.gemspec

@@ -11,8 +11,9 @@ Gem::Specification.new do |spec|
   spec.homepage      = "https://github.com/jamescook/teek"
   spec.licenses      = ["MIT"]
 
-  spec.files         = Dir.glob("{lib,ext,exe,sample}/**/*").select { |f|
-                         File.file?(f) && f !~ /\.(bundle|so|o|log)$/
+  spec.files         = Dir.glob("{lib,ext,exe}/**/*").select { |f|
+                         File.file?(f) && f !~ /\.(bundle|so|o|log)$/ &&
+                           !f.include?('.dSYM/') && File.basename(f) != 'Makefile'
                        } + %w[Rakefile LICENSE README.md teek.gemspec Gemfile]
   spec.bindir        = "exe"
   spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: teek
 version: !ruby/object:Gem::Version
-  version: 0.1.3
+  version: 0.1.4
 platform: ruby
 authors:
 - James Cook
@@ -124,6 +124,11 @@ files:
 - ext/teek/tcl9compat.h
 - ext/teek/tcltkbridge.c
 - ext/teek/tcltkbridge.h
+- ext/teek/tkdrop.c
+- ext/teek/tkdrop.h
+- ext/teek/tkdrop_macos.m
+- ext/teek/tkdrop_win.c
+- ext/teek/tkdrop_x11.c
 - ext/teek/tkeventsource.c
 - ext/teek/tkfont.c
 - ext/teek/tkphoto.c
@@ -136,61 +141,10 @@ files:
 - lib/teek/demo_support.rb
 - lib/teek/method_coverage_service.rb
 - lib/teek/photo.rb
+- lib/teek/platform.rb
 - lib/teek/ractor_support.rb
 - lib/teek/version.rb
 - lib/teek/widget.rb
-- sample/calculator.rb
-- sample/debug_demo.rb
-- sample/gamepad_viewer/assets/controller.png
-- sample/gamepad_viewer/gamepad_viewer.rb
-- sample/goldberg.rb
-- sample/goldberg_helpers.rb
-- sample/optcarrot.rb
-- sample/optcarrot/thwaite.nes
-- sample/optcarrot/vendor/optcarrot.rb
-- sample/optcarrot/vendor/optcarrot/apu.rb
-- sample/optcarrot/vendor/optcarrot/config.rb
-- sample/optcarrot/vendor/optcarrot/cpu.rb
-- sample/optcarrot/vendor/optcarrot/driver.rb
-- sample/optcarrot/vendor/optcarrot/mapper/cnrom.rb
-- sample/optcarrot/vendor/optcarrot/mapper/mmc1.rb
-- sample/optcarrot/vendor/optcarrot/mapper/mmc3.rb
-- sample/optcarrot/vendor/optcarrot/mapper/uxrom.rb
-- sample/optcarrot/vendor/optcarrot/nes.rb
-- sample/optcarrot/vendor/optcarrot/opt.rb
-- sample/optcarrot/vendor/optcarrot/pad.rb
-- sample/optcarrot/vendor/optcarrot/palette.rb
-- sample/optcarrot/vendor/optcarrot/ppu.rb
-- sample/optcarrot/vendor/optcarrot/rom.rb
-- sample/paint/assets/bucket.png
-- sample/paint/assets/cursor.png
-- sample/paint/assets/eraser.png
-- sample/paint/assets/pencil.png
-- sample/paint/assets/spray.png
-- sample/paint/layer.rb
-- sample/paint/layer_manager.rb
-- sample/paint/paint_demo.rb
-- sample/paint/sparse_pixel_buffer.rb
-- sample/sdl2_demo.rb
-- sample/threading_demo.rb
-- sample/yam/assets/MINESWEEPER_0.png
-- sample/yam/assets/MINESWEEPER_1.png
-- sample/yam/assets/MINESWEEPER_2.png
-- sample/yam/assets/MINESWEEPER_3.png
-- sample/yam/assets/MINESWEEPER_4.png
-- sample/yam/assets/MINESWEEPER_5.png
-- sample/yam/assets/MINESWEEPER_6.png
-- sample/yam/assets/MINESWEEPER_7.png
-- sample/yam/assets/MINESWEEPER_8.png
-- sample/yam/assets/MINESWEEPER_F.png
-- sample/yam/assets/MINESWEEPER_M.png
-- sample/yam/assets/MINESWEEPER_X.png
-- sample/yam/assets/click.wav
-- sample/yam/assets/explosion.wav
-- sample/yam/assets/flag.wav
-- sample/yam/assets/music.mp3
-- sample/yam/assets/sweep.wav
-- sample/yam/yam.rb
 - teek.gemspec
 homepage: https://github.com/jamescook/teek
 licenses:

data/sample/calculator.rb

@@ -1,255 +0,0 @@
-#!/usr/bin/env ruby
-# frozen_string_literal: true
-# teek-record: title=Calculator
-
-# Calculator - A simple desktop calculator
-#
-# Run: ruby -Ilib sample/calculator.rb
-
-require 'teek'
-
-class Calculator
-  attr_reader :app
-
-  def initialize
-    @app = Teek::App.new
-    @display_value = '0'
-    @pending_op = nil
-    @accumulator = nil
-    @reset_on_next = false
-
-    build_ui
-  end
-
-  def build_ui
-    @app.show
-    @app.set_window_title('Calculator')
-    @app.set_window_resizable(false, false)
-
-    # Button style — use a larger font since macOS aqua theme
-    # ignores vertical stretch; font size drives button height
-    @app.tcl_eval('ttk::style configure Calc.TButton -font {{TkDefaultFont} 18}')
-
-    # Display
-    @app.set_variable('::display', '0')
-    @display = @app.create_widget('ttk::entry', textvariable: '::display',
-      justify: :right, state: :readonly, font: '{TkDefaultFont} 24')
-    @display.grid(row: 0, column: 0, columnspan: 4,
-      sticky: :ew, padx: 4, pady: 4, ipady: 8)
-
-    build_buttons
-  end
-
-  def build_buttons
-    # Row 1: C, +/-, %, /
-    button('C',   1, 0, style: :accent) { clear }
-    button('+/-', 1, 1, style: :accent) { negate }
-    button('%',   1, 2, style: :accent) { percent }
-    button('/',   1, 3, style: :op)     { set_op(:/) }
-
-    # Row 2: 7, 8, 9, *
-    button('7', 2, 0) { digit('7') }
-    button('8', 2, 1) { digit('8') }
-    button('9', 2, 2) { digit('9') }
-    button('*', 2, 3, style: :op) { set_op(:*) }
-
-    # Row 3: 4, 5, 6, -
-    button('4', 3, 0) { digit('4') }
-    button('5', 3, 1) { digit('5') }
-    button('6', 3, 2) { digit('6') }
-    button('-', 3, 3, style: :op) { set_op(:-) }
-
-    # Row 4: 1, 2, 3, +
-    button('1', 4, 0) { digit('1') }
-    button('2', 4, 1) { digit('2') }
-    button('3', 4, 2) { digit('3') }
-    button('+', 4, 3, style: :op) { set_op(:+) }
-
-    # Row 5: 0 (wide), ., =
-    button('0', 5, 0, colspan: 2) { digit('0') }
-    button('.', 5, 2) { decimal }
-    button('=', 5, 3, style: :op) { equals }
-
-    # Make columns equal width
-    4.times { |c| @app.command(:grid, 'columnconfigure', '.', c, weight: 1, minsize: 60) }
-  end
-
-  # --- UI helpers ---
-
-  # Click a button by its label (for demo/testing).
-  # In recording mode, shows the pressed visual state briefly before invoking.
-  def click(label, recording: false)
-    widget = @buttons[label]
-    return unless widget
-    if recording
-      widget.command('state', 'pressed')
-      @app.after(80) {
-        widget.command('state', '!pressed')
-        widget.command(:invoke)
-      }
-    else
-      widget.command(:invoke)
-    end
-  end
-
-  def button(text, row, col, style: :num, colspan: 1, &action)
-    @buttons ||= {}
-    widget = @app.create_widget('ttk::button', text: text, style: 'Calc.TButton',
-      command: proc { |*| action.call })
-    @buttons[text] = widget
-    widget.grid(row: row, column: col, columnspan: colspan,
-      sticky: :nsew, padx: 2, pady: 2)
-  end
-
-  def update_display
-    @app.set_variable('::display', @display_value)
-  end
-
-  # --- Calculator logic ---
-
-  def digit(d)
-    if @reset_on_next
-      @display_value = '0'
-      @reset_on_next = false
-    end
-    if @display_value == '0' && d != '0'
-      @display_value = d
-    elsif @display_value != '0'
-      @display_value += d
-    end
-    update_display
-  end
-
-  def decimal
-    @display_value = '0' if @reset_on_next
-    @reset_on_next = false
-    unless @display_value.include?('.')
-      @display_value += '.'
-    end
-    update_display
-  end
-
-  def clear
-    @display_value = '0'
-    @pending_op = nil
-    @accumulator = nil
-    @reset_on_next = false
-    update_display
-  end
-
-  def negate
-    if @display_value.start_with?('-')
-      @display_value = @display_value[1..]
-    elsif @display_value != '0'
-      @display_value = "-#{@display_value}"
-    end
-    update_display
-  end
-
-  def percent
-    @display_value = (current_value / 100.0).to_s
-    @reset_on_next = true
-    update_display
-  end
-
-  def set_op(op)
-    evaluate if @pending_op && !@reset_on_next
-    @accumulator = current_value
-    @pending_op = op
-    @reset_on_next = true
-  end
-
-  def equals
-    evaluate
-    @pending_op = nil
-  end
-
-  def run
-    @app.mainloop
-  end
-
-  private
-
-  def current_value
-    @display_value.to_f
-  end
-
-  def evaluate
-    return unless @pending_op && @accumulator
-
-    b = current_value
-    result = case @pending_op
-             when :+ then @accumulator + b
-             when :- then @accumulator - b
-             when :* then @accumulator * b
-             when :/ then b.zero? ? Float::NAN : @accumulator / b
-             end
-
-    @accumulator = result
-    @display_value = format_result(result)
-    @reset_on_next = true
-    update_display
-  end
-
-  def format_result(val)
-    return 'Error' if val.nil? || val.nan? || val.infinite?
-    val == val.to_i ? val.to_i.to_s : val.to_s
-  end
-end
-
-calc = Calculator.new
-
-# Automated demo support (testing and recording)
-require_relative '../lib/teek/demo_support'
-TeekDemo.app = calc.app
-
-if TeekDemo.recording?
-  calc.app.set_window_geometry('+0+0')
-  calc.app.tcl_eval('. configure -cursor none')
-  TeekDemo.signal_recording_ready
-end
-
-if TeekDemo.active?
-  TeekDemo.after_idle {
-    d = TeekDemo.method(:delay)
-    app = calc.app
-    rec = TeekDemo.recording?
-
-    # Exercises all four operations, landing on 42.
-    # 8 * 9 = 72, / 3 = 24, + 25 = 49, - 7 = 42
-    steps = [
-      -> { calc.click('8', recording: rec) },
-      -> { calc.click('*', recording: rec) },
-      -> { calc.click('9', recording: rec) },
-      -> { calc.click('=', recording: rec) },      # 72
-      nil,
-      -> { calc.click('/', recording: rec) },
-      -> { calc.click('3', recording: rec) },
-      -> { calc.click('=', recording: rec) },      # 24
-      nil,
-      -> { calc.click('+', recording: rec) },
-      -> { calc.click('2', recording: rec) },
-      -> { calc.click('5', recording: rec) },
-      -> { calc.click('=', recording: rec) },      # 49
-      nil,
-      -> { calc.click('-', recording: rec) },
-      -> { calc.click('7', recording: rec) },
-      -> { calc.click('=', recording: rec) },      # 42
-      nil, nil,
-      -> { TeekDemo.finish },
-    ]
-
-    run_step = nil
-    i = 0
-    run_step = proc {
-      steps[i]&.call
-      i += 1
-      if i < steps.length
-        app.after(d.call(test: 1, record: 250)) { run_step.call }
-      end
-    }
-    run_step.call
-  }
-end
-
-calc.run

data/sample/debug_demo.rb

@@ -1,43 +0,0 @@
-# frozen_string_literal: true
-
-# Demo of the Teek debugger window.
-# Run: ruby -Ilib sample/debug_demo.rb
-
-require 'teek'
-
-app = Teek::App.new(debug: true)
-
-# Show the main app window
-app.show
-app.set_window_title('Debug Demo App')
-app.set_window_geometry('300x200')
-
-# Create some widgets
-frame = app.create_widget('ttk::frame')
-app.command(:pack, frame, fill: :both, expand: 1, padx: 10, pady: 10)
-
-lbl = app.create_widget('ttk::label', parent: frame, text: 'Hello from the app')
-app.command(:pack, lbl, pady: 5)
-
-ent = app.create_widget('ttk::entry', parent: frame)
-app.command(:pack, ent, pady: 5)
-
-# Button that creates more widgets dynamically
-dynamic_widgets = []
-add_btn = app.create_widget('ttk::button', parent: frame, text: 'Add Widget',
-  command: proc { |*|
-    btn = app.create_widget('ttk::button', parent: frame, text: "Button #{dynamic_widgets.size + 1}")
-    app.command(:pack, btn, pady: 2)
-    dynamic_widgets << btn
-  })
-app.command(:pack, add_btn, pady: 5)
-
-# Button to destroy last widget
-rm_btn = app.create_widget('ttk::button', parent: frame, text: 'Remove Widget',
-  command: proc { |*|
-    widget = dynamic_widgets.pop
-    widget&.destroy
-  })
-app.command(:pack, rm_btn, pady: 5)
-
-app.mainloop