teek 0.1.3 → 0.1.4

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 8fe2f5c480c472d6479ac1b92088a748e1216cb1a15472e9e98fbd3c2e4fd347
-  data.tar.gz: c4d2da92180136ca756955258ea59402b27b9019e9d492f0969a7c346dcc053a
+  metadata.gz: b0f6bffdcb09e1d16bac89ae6d8a5595b72e33b0ae1e1d8b3a69bbad54e1cadc
+  data.tar.gz: 3d7ef3fe7168abd1f618577e01d02dfd9a43a91f2fe2a1fd27bff05c9cb73377
 SHA512:
-  metadata.gz: 6a10e7f92ca08b1385288829cf0188beb408c90cdf52aecb30a36652f2b299954318c4b3a64434ea0158950f05e105db5a289c115dab4506fa91b7ab6e70f26e
-  data.tar.gz: 7cd908cf513d6f92cad5c89d04cb49f7bf3fb3e9d7868af4d0d0fbb7db04e2a7a712c3e6e1e2fd107fd4df4b84140b49d720b2357cc9b9452067a8f5b7bfe2f6
+  metadata.gz: 6604babdbafe5641544ea288c017722a5c08660445945e715dac47335849165bb3245b2b024c5067fd8013f14cc9aba43965fea5703dc9ff91f71e8e438ab518
+  data.tar.gz: 8e146399dbc27889ed3284e1de07bfffcc6e83637afb6bc69ab22120410e18e23fcf35f5b0d5e6670dc0ca5062d0ecc6f505fac26cea0c610f628103d065b07e

data/README.md

@@ -102,6 +102,27 @@ Two other control flow signals are available for advanced use:
 
 If a callback raises a Ruby exception, it becomes a Tcl error. The exception message is preserved and can be caught on the Tcl side with `catch`.
 
+## Menus
+
+Build a menu bar with standard `menu` widgets:
+
+```ruby
+app = Teek::App.new(title: 'My App')
+
+app.command(:menu, '.menubar')
+app.command('.', :configure, menu: '.menubar')
+
+app.command(:menu, '.menubar.file', tearoff: 0)
+app.command('.menubar', :add, :cascade, label: 'File', menu: '.menubar.file')
+app.command('.menubar.file', :add, :command,
+           label: 'Quit', command: proc { app.command(:destroy, '.') })
+
+app.show
+app.mainloop
+```
+
+> **macOS note:** On macOS, Tk always displays a menu bar. If you don't configure one, Tk shows a default menu with items like "Run Widget Demo" that are meant for the Tcl interpreter shell. Attach a custom menu bar (even an empty one) to suppress it. See the [TkDocs menu tutorial](https://tkdocs.com/tutorial/menus.html) for details.
+
 ## List operations
 
 Convert between Ruby arrays and Tcl list strings:

data/Rakefile

@@ -2,6 +2,10 @@ require "bundler/gem_tasks"
 require 'rake/testtask'
 require 'rake/clean'
 
+# Sub-project Rakefiles (define sdl2:compile, mgba:compile)
+import 'teek-sdl2/Rakefile'
+import 'teek-mgba/Rakefile'
+
 # Documentation tasks - all doc gems are in docs_site/Gemfile
 namespace :docs do
   desc "Install docs dependencies (docs_site/Gemfile)"
@@ -108,24 +112,20 @@ task yard: 'docs:yard'
 CLEAN.include('ext/teek/config_list')
 CLOBBER.include('tmp', 'lib/*.bundle', 'lib/*.so', 'ext/**/*.o', 'ext/**/*.bundle', 'ext/**/*.bundle.dSYM')
 CLOBBER.include('teek-sdl2/lib/*.bundle', 'teek-sdl2/lib/*.so', 'teek-sdl2/ext/**/*.o', 'teek-sdl2/ext/**/*.bundle')
+CLOBBER.include('teek-mgba/lib/*.bundle', 'teek-mgba/lib/*.so', 'teek-mgba/ext/**/*.o', 'teek-mgba/ext/**/*.bundle')
 
 # Clean coverage artifacts before test runs to prevent accumulation
 CLEAN.include('coverage/.resultset.json', 'coverage/results')
 
-# Conditionally load rake-compiler
+# rake compile = teek core only (tcltklib)
 if Gem::Specification.find_all_by_name('rake-compiler').any?
   require 'rake/extensiontask'
+
   Rake::ExtensionTask.new do |ext|
     ext.name = 'tcltklib'
     ext.ext_dir = 'ext/teek'
     ext.lib_dir = 'lib'
   end
-
-  Rake::ExtensionTask.new do |ext|
-    ext.name = 'teek_sdl2'
-    ext.ext_dir = 'teek-sdl2/ext/teek_sdl2'
-    ext.lib_dir = 'teek-sdl2/lib'
-  end
 end
 
 namespace :screenshots do
@@ -209,26 +209,65 @@ end
 
 task test: [:compile, :clean_coverage]
 
-def detect_platform
-  case RUBY_PLATFORM
-  when /darwin/ then 'darwin'
-  when /linux/ then 'linux'
-  when /mingw|mswin/ then 'windows'
-  else 'unknown'
-  end
-end
-
 namespace :sdl2 do
-  desc "Compile teek-sdl2 C extension"
-  task compile: 'compile:teek_sdl2'
-
   Rake::TestTask.new(:test) do |t|
     t.libs << 'teek-sdl2/test' << 'teek-sdl2/lib'
     t.test_files = FileList['teek-sdl2/test/**/test_*.rb'] - FileList['teek-sdl2/test/test_helper.rb']
     t.ruby_opts << '-r test_helper'
     t.verbose = true
   end
-  task test: 'compile:teek_sdl2'
+  task test: 'sdl2:compile'
+end
+
+namespace :mgba do
+  Rake::TestTask.new(:test) do |t|
+    t.libs << 'teek-mgba/test' << 'teek-mgba/lib' << 'teek-sdl2/lib'
+    t.test_files = FileList['teek-mgba/test/**/test_*.rb'] - FileList['teek-mgba/test/test_helper.rb']
+    t.ruby_opts << '-r test_helper'
+    t.verbose = true
+  end
+  task test: ['mgba:compile', 'sdl2:compile']
+
+  desc "Download and build libmgba from source (for macOS / platforms without libmgba-dev)"
+  task :deps do
+    require 'fileutils'
+    require 'etc'
+
+    vendor_dir  = File.expand_path('teek-mgba/vendor')
+    mgba_src    = File.join(vendor_dir, 'mgba')
+    build_dir   = File.join(vendor_dir, 'build')
+    install_dir = File.join(vendor_dir, 'install')
+
+    unless File.directory?(mgba_src)
+      FileUtils.mkdir_p(vendor_dir)
+      sh "git clone --depth 1 --branch 0.10.3 https://github.com/mgba-emu/mgba.git #{mgba_src}"
+    end
+
+    FileUtils.mkdir_p(build_dir)
+    cmake_flags = %W[
+      -DBUILD_SHARED=OFF
+      -DBUILD_STATIC=ON
+      -DBUILD_QT=OFF
+      -DBUILD_SDL=OFF
+      -DBUILD_GL=OFF
+      -DBUILD_GLES2=OFF
+      -DBUILD_GLES3=OFF
+      -DBUILD_LIBRETRO=OFF
+      -DSKIP_FRONTEND=ON
+      -DUSE_SQLITE3=OFF
+      -DUSE_ELF=OFF
+      -DUSE_LZMA=OFF
+      -DUSE_EDITLINE=OFF
+      -DCMAKE_INSTALL_PREFIX=#{install_dir}
+      -DCMAKE_POLICY_VERSION_MINIMUM=3.5
+    ].join(' ')
+
+    sh "cmake -S #{mgba_src} -B #{build_dir} #{cmake_flags}"
+    sh "cmake --build #{build_dir} -j #{Etc.nprocessors}"
+    sh "cmake --install #{build_dir}"
+
+    puts "libmgba built and installed to #{install_dir}"
+  end
 end
 
 task :default => :compile
@@ -301,6 +340,15 @@ namespace :docker do
     ruby_version == '4.0' ? base : "#{base}-ruby#{ruby_version}"
   end
 
+  def warn_if_containers_running(image_name)
+    running = `docker ps --filter ancestor=#{image_name} --format '{{.ID}} {{.Status}}'`.strip
+    return if running.empty?
+    count = running.lines.size
+    warn "\n⚠  #{count} container(s) already running on #{image_name}:"
+    running.lines.each { |l| warn "   #{l.strip}" }
+    warn "   This usually means a previous test suite is stuck. Consider: docker kill $(docker ps -q --filter ancestor=#{image_name})\n"
+  end
+
   def tcl_version_from_env
     version = ENV.fetch('TCL_VERSION', '9.0')
     unless ['8.6', '9.0'].include?(version)
@@ -345,6 +393,8 @@ namespace :docker do
     require 'fileutils'
     FileUtils.mkdir_p('coverage')
 
+    warn_if_containers_running(image_name)
+
     puts "Running tests in Docker (Ruby #{ruby_version}, Tcl #{tcl_version})..."
     cmd = "docker run --rm --init"
     cmd += " -v #{Dir.pwd}/coverage:/app/coverage"
@@ -374,6 +424,22 @@ namespace :docker do
     sh cmd
   end
 
+  desc "Force rebuild Docker image (no cache)"
+  task :rebuild do
+    tcl_version = tcl_version_from_env
+    ruby_version = ruby_version_from_env
+    image_name = docker_image_name(tcl_version, ruby_version)
+
+    puts "Rebuilding Docker image (no cache) for Ruby #{ruby_version}, Tcl #{tcl_version}..."
+    cmd = "docker build -f #{DOCKERFILE} --no-cache"
+    cmd += " --label #{DOCKER_LABEL}"
+    cmd += " --build-arg RUBY_VERSION=#{ruby_version}"
+    cmd += " --build-arg TCL_VERSION=#{tcl_version}"
+    cmd += " -t #{image_name} ."
+
+    sh cmd
+  end
+
   desc "Remove dangling Docker images from teek builds"
   task :prune do
     sh "docker image prune -f --filter label=#{DOCKER_LABEL}"
@@ -391,6 +457,8 @@ namespace :docker do
       require 'fileutils'
       FileUtils.mkdir_p('coverage')
 
+      warn_if_containers_running(image_name)
+
       puts "Running teek-sdl2 tests in Docker (Ruby #{ruby_version}, Tcl #{tcl_version})..."
       cmd = "docker run --rm --init"
       cmd += " -v #{Dir.pwd}/coverage:/app/coverage"
@@ -406,7 +474,32 @@ namespace :docker do
       sh cmd
     end
 
-    desc "Run all tests (teek + teek-sdl2) with coverage and generate report"
+    desc "Run teek-mgba tests in Docker"
+    task mgba: :build do
+      tcl_version = tcl_version_from_env
+      ruby_version = ruby_version_from_env
+      image_name = docker_image_name(tcl_version, ruby_version)
+
+      require 'fileutils'
+      FileUtils.mkdir_p('coverage')
+
+      warn_if_containers_running(image_name)
+
+      puts "Running teek-mgba tests in Docker (Ruby #{ruby_version}, Tcl #{tcl_version})..."
+      cmd = "docker run --rm --init"
+      cmd += " -v #{Dir.pwd}/coverage:/app/coverage"
+      cmd += " -e TCL_VERSION=#{tcl_version}"
+      if ENV['COVERAGE'] == '1'
+        cmd += " -e COVERAGE=1"
+        cmd += " -e COVERAGE_NAME=#{ENV['COVERAGE_NAME'] || 'mgba'}"
+      end
+      cmd += " #{image_name}"
+      cmd += " xvfb-run -a bundle exec rake mgba:test"
+
+      sh cmd
+    end
+
+    desc "Run all tests (teek + teek-sdl2 + teek-mgba) with coverage and generate report"
     task all: 'docker:build' do
       tcl_version = tcl_version_from_env
       ruby_version = ruby_version_from_env
@@ -416,7 +509,7 @@ namespace :docker do
       FileUtils.rm_rf('coverage')
       FileUtils.mkdir_p('coverage/results')
 
-      # Run both test suites with coverage enabled and distinct COVERAGE_NAMEs
+      # Run all three test suites with coverage enabled and distinct COVERAGE_NAMEs
       ENV['COVERAGE'] = '1'
 
       ENV['COVERAGE_NAME'] = 'main'
@@ -427,6 +520,11 @@ namespace :docker do
       Rake::Task['docker:build'].reenable
       Rake::Task['docker:test:sdl2'].invoke
 
+      ENV['COVERAGE_NAME'] = 'mgba'
+      Rake::Task['docker:test:mgba'].reenable
+      Rake::Task['docker:build'].reenable
+      Rake::Task['docker:test:mgba'].invoke
+
       # Collate inside Docker (paths match /app/lib/...)
       puts "Collating coverage results..."
       cmd = "docker run --rm --init"

data/ext/teek/extconf.rb

@@ -69,11 +69,29 @@ def find_tcltk
 
   abort "Tcl stub library not found" unless tcl_stub
   abort "Tk stub library not found" unless tk_stub
+
+  # Also link the real Tcl shared library so it's loaded at runtime.
+  # Some distros (e.g. Fedora) ship Tcl symbols in a separate .so that
+  # stubs alone don't pull in, causing dlsym() to fail at bootstrap.
+  have_library('tcl9.0') || have_library('tcl8.6') || have_library('tcl')
 end
 
 find_tcltk
 
 # Source files for the extension
-$srcs = ['tcltkbridge.c', 'tkphoto.c', 'tkfont.c', 'tkwin.c', 'tkeventsource.c']
+$srcs = ['tcltkbridge.c', 'tkphoto.c', 'tkfont.c', 'tkwin.c', 'tkeventsource.c', 'tkdrop.c']
+
+# Platform-specific file drop target
+case RbConfig::CONFIG['host_os']
+when /darwin/
+  $srcs << 'tkdrop_macos.m'
+  $LDFLAGS << ' -framework Cocoa'
+when /mingw|mswin|cygwin/
+  $srcs << 'tkdrop_win.c'
+  have_library('ole32')
+  have_library('shell32')
+else
+  $srcs << 'tkdrop_x11.c'
+end
 
 create_makefile('tcltklib')

data/ext/teek/tcltkbridge.c

@@ -59,6 +59,39 @@ static void *get_tcl_proc(const char *name)
 }
 #endif
 
+/* Try to dlopen the real Tcl shared library if it's not already loaded.
+ * Some distros (e.g. Fedora) ship Tcl/Tk in separate .so files and only
+ * the Tk combined library gets pulled in via stubs, leaving Tcl_CreateInterp
+ * unresolvable via RTLD_DEFAULT. */
+#ifndef _WIN32
+static void *tcl_dlhandle = NULL;
+
+static void *
+dlsym_tcl(const char *name)
+{
+    void *sym = dlsym(RTLD_DEFAULT, name);
+    if (sym) return sym;
+
+    /* Try loading the real Tcl library explicitly */
+    if (!tcl_dlhandle) {
+        static const char *lib_names[] = {
+            "libtcl9.0.so", "libtcl8.6.so",
+            "libtcl9.0.dylib", "libtcl8.6.dylib",
+            NULL
+        };
+        int i;
+        for (i = 0; lib_names[i]; i++) {
+            tcl_dlhandle = dlopen(lib_names[i], RTLD_NOW | RTLD_GLOBAL);
+            if (tcl_dlhandle) break;
+        }
+    }
+    if (tcl_dlhandle) {
+        sym = dlsym(tcl_dlhandle, name);
+    }
+    return sym;
+}
+#endif
+
 static void
 find_executable_bootstrap(const char *argv0)
 {
@@ -71,7 +104,7 @@ find_executable_bootstrap(const char *argv0)
 #ifdef _WIN32
     real_find_executable = (void (*)(const char *))get_tcl_proc("Tcl_FindExecutable");
 #else
-    real_find_executable = dlsym(RTLD_DEFAULT, "Tcl_FindExecutable");
+    real_find_executable = dlsym_tcl("Tcl_FindExecutable");
 #endif
     if (real_find_executable) {
         real_find_executable(argv0);
@@ -89,7 +122,7 @@ create_interp_bootstrap(void)
 #ifdef _WIN32
     real_create_interp = (Tcl_Interp *(*)(void))get_tcl_proc("Tcl_CreateInterp");
 #else
-    real_create_interp = dlsym(RTLD_DEFAULT, "Tcl_CreateInterp");
+    real_create_interp = dlsym_tcl("Tcl_CreateInterp");
 #endif
     if (!real_create_interp) {
         return NULL;
@@ -1490,6 +1523,9 @@ Init_tcltklib(void)
     /* External event source integration (tkeventsource.c) */
     Init_tkeventsource(mTeek);
 
+    /* File drop target support (tkdrop.c) */
+    Init_tkdrop(cInterp);
+
     /* Class methods for instance tracking */
     rb_define_singleton_method(cInterp, "instance_count", tcltkip_instance_count, 0);
     rb_define_singleton_method(cInterp, "instances", tcltkip_instances, 0);

data/ext/teek/tcltkbridge.h

@@ -42,4 +42,7 @@ void Init_tkwin(VALUE cInterp);
 /* External event source integration - defined in tkeventsource.c */
 void Init_tkeventsource(VALUE mTeek);
 
+/* File drop target support - defined in tkdrop.c */
+void Init_tkdrop(VALUE cInterp);
+
 #endif /* TCLTKBRIDGE_H */

data/ext/teek/tkdrop.c

@@ -0,0 +1,66 @@
+/* tkdrop.c - File drop target support (common entry point)
+ *
+ * Provides Interp#register_drop_target(window_path) which delegates
+ * to platform-specific teek_register_drop_target().
+ *
+ * Based on tkdnd (https://github.com/petasis/tkdnd) as reference.
+ */
+
+#include "tcltkbridge.h"
+#include "tkdrop.h"
+
+/* ---------------------------------------------------------
+ * Interp#register_drop_target(window_path)
+ *
+ * Register a Tk widget as a native file drop target.
+ * After registration, dropping a file onto the widget generates
+ * a <<DropFile>> virtual event with the file path in -data.
+ *
+ * Arguments:
+ *   window_path - Tk widget path (e.g., ".", ".frame")
+ *
+ * Returns: nil
+ * --------------------------------------------------------- */
+
+static VALUE
+interp_register_drop_target(VALUE self, VALUE window_path)
+{
+    struct tcltk_interp *tip = get_interp(self);
+    Tk_Window mainWin;
+    Tk_Window tkwin;
+    int result;
+
+    StringValue(window_path);
+
+    mainWin = Tk_MainWindow(tip->interp);
+    if (!mainWin) {
+        rb_raise(eTclError, "Tk not initialized (no main window)");
+    }
+
+    tkwin = Tk_NameToWindow(tip->interp, StringValueCStr(window_path), mainWin);
+    if (!tkwin) {
+        rb_raise(eTclError, "window not found: %s", StringValueCStr(window_path));
+    }
+
+    Tk_MakeWindowExist(tkwin);
+
+    result = teek_register_drop_target(tip->interp, tkwin, StringValueCStr(window_path));
+    if (result != TCL_OK) {
+        rb_raise(eTclError, "failed to register drop target: %s",
+                 Tcl_GetStringResult(tip->interp));
+    }
+
+    return Qnil;
+}
+
+/* ---------------------------------------------------------
+ * Init_tkdrop - Register drop target methods on Interp
+ *
+ * Called from Init_tcltklib in tcltkbridge.c.
+ * --------------------------------------------------------- */
+
+void
+Init_tkdrop(VALUE cInterp)
+{
+    rb_define_method(cInterp, "register_drop_target", interp_register_drop_target, 1);
+}

data/ext/teek/tkdrop.h

@@ -0,0 +1,26 @@
+/* tkdrop.h - Native file drop target support
+ *
+ * Cross-platform abstraction for registering Tk widgets as file drop targets.
+ * Each platform implements teek_register_drop_target() which hooks into the
+ * OS drag-and-drop system and generates <<DropFile>> virtual events.
+ *
+ * Based on tkdnd (https://github.com/petasis/tkdnd) as reference.
+ * See THIRD_PARTY_NOTICES for attribution.
+ */
+
+#ifndef TKDROP_H
+#define TKDROP_H
+
+#include <tcl.h>
+#include <tk.h>
+
+/*
+ * Register a Tk window as a file drop target.
+ * When a file is dropped, generates <<DropFile>> with -data set to the path.
+ *
+ * Returns TCL_OK on success, TCL_ERROR on failure (with error in interp).
+ */
+int teek_register_drop_target(Tcl_Interp *interp, Tk_Window tkwin,
+                              const char *widget_path);
+
+#endif /* TKDROP_H */

data/ext/teek/tkdrop_macos.m

@@ -0,0 +1,141 @@
+/* tkdrop_macos.m - macOS file drop target via Cocoa NSDraggingDestination
+ *
+ * Based on tkdnd (https://github.com/petasis/tkdnd) as reference.
+ * See THIRD_PARTY_NOTICES for attribution.
+ */
+
+#import <Cocoa/Cocoa.h>
+#include <tcl.h>
+#include <tk.h>
+#include "tkdrop.h"
+
+#ifndef MAC_OSX_TK
+#define MAC_OSX_TK
+#endif
+#include "tkPlatDecls.h"
+
+/* --------------------------------------------------------- */
+
+@interface TeekDropView : NSView <NSDraggingDestination>
+{
+    Tcl_Interp *_interp;
+    char *_widgetPath;
+}
+- (instancetype)initWithFrame:(NSRect)frame
+                       interp:(Tcl_Interp *)interp
+                   widgetPath:(const char *)widgetPath;
+@end
+
+@implementation TeekDropView
+
+- (instancetype)initWithFrame:(NSRect)frame
+                       interp:(Tcl_Interp *)interp
+                   widgetPath:(const char *)widgetPath
+{
+    self = [super initWithFrame:frame];
+    if (self) {
+        _interp = interp;
+        _widgetPath = strdup(widgetPath);
+        [self setAutoresizingMask:NSViewWidthSizable | NSViewHeightSizable];
+        [self registerForDraggedTypes:@[NSPasteboardTypeFileURL]];
+    }
+    return self;
+}
+
+- (void)dealloc
+{
+    free(_widgetPath);
+    [super dealloc];
+}
+
+- (NSDragOperation)draggingEntered:(id<NSDraggingInfo>)sender
+{
+    NSPasteboard *pb = [sender draggingPasteboard];
+    if ([pb canReadObjectForClasses:@[[NSURL class]]
+                            options:@{NSPasteboardURLReadingFileURLsOnlyKey: @YES}]) {
+        return NSDragOperationCopy;
+    }
+    return NSDragOperationNone;
+}
+
+- (BOOL)performDragOperation:(id<NSDraggingInfo>)sender
+{
+    NSPasteboard *pb = [sender draggingPasteboard];
+    NSArray<NSURL *> *urls = [pb readObjectsForClasses:@[[NSURL class]]
+                                               options:@{NSPasteboardURLReadingFileURLsOnlyKey: @YES}];
+    if (!urls || [urls count] == 0) {
+        return NO;
+    }
+
+    /* Build a Tcl list of all dropped file paths */
+    Tcl_Obj *listObj = Tcl_NewListObj(0, NULL);
+    Tcl_IncrRefCount(listObj);
+
+    for (NSURL *url in urls) {
+        NSString *path = [url path];
+        if (!path) continue;
+        Tcl_ListObjAppendElement(NULL, listObj,
+            Tcl_NewStringObj([path UTF8String], -1));
+    }
+
+    /* Generate single <<DropFile>> event with all paths as a Tcl list */
+    Tcl_Obj *script = Tcl_ObjPrintf(
+        "event generate %s <<DropFile>> -data {%s}",
+        _widgetPath, Tcl_GetString(listObj));
+    Tcl_IncrRefCount(script);
+    Tcl_EvalObjEx(_interp, script, TCL_EVAL_GLOBAL);
+    Tcl_DecrRefCount(script);
+    Tcl_DecrRefCount(listObj);
+
+    return YES;
+}
+
+/* Allow the drop view to be transparent to mouse events when not dragging */
+- (NSView *)hitTest:(NSPoint)point
+{
+    return nil;
+}
+
+@end
+
+/* --------------------------------------------------------- */
+
+int
+teek_register_drop_target(Tcl_Interp *interp, Tk_Window tkwin,
+                          const char *widget_path)
+{
+    Drawable drawable = Tk_WindowId(tkwin);
+    if (!drawable) {
+        Tcl_SetResult(interp, "window has no native handle", TCL_STATIC);
+        return TCL_ERROR;
+    }
+
+    void *nswindow = Tk_MacOSXGetNSWindowForDrawable(drawable);
+    if (!nswindow) {
+        Tcl_SetResult(interp, "could not get NSWindow", TCL_STATIC);
+        return TCL_ERROR;
+    }
+
+    NSWindow *window = (__bridge NSWindow *)nswindow;
+    NSView *contentView = [window contentView];
+    if (!contentView) {
+        Tcl_SetResult(interp, "could not get content view", TCL_STATIC);
+        return TCL_ERROR;
+    }
+
+    /* Check if we already registered a drop view on this window */
+    for (NSView *subview in [contentView subviews]) {
+        if ([subview isKindOfClass:[TeekDropView class]]) {
+            return TCL_OK; /* Already registered */
+        }
+    }
+
+    TeekDropView *dropView = [[TeekDropView alloc]
+        initWithFrame:[contentView bounds]
+               interp:interp
+           widgetPath:widget_path];
+
+    [contentView addSubview:dropView];
+
+    return TCL_OK;
+}