From 3db12e8b236ac8f88db8eb4690d10e4a3b8dbcd4 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 16 Jan 1998 12:13:05 +0000
Subject: Initial revision

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 sample/tkbrowse.rb | 69 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 sample/tkbrowse.rb

(limited to 'sample/tkbrowse.rb')

diff --git a/sample/tkbrowse.rb b/sample/tkbrowse.rb
new file mode 100644
index 0000000000..d127996173
--- /dev/null
+++ b/sample/tkbrowse.rb
@@ -0,0 +1,69 @@
+#!/usr/local/bin/ruby
+#
+# This script generates a directory browser, which lists the working
+# directory and allows you to open files or subdirectories by
+# double-clicking.
+
+# Create a scrollbar on the right side of the main window and a listbox
+# on the left side.
+
+require "tkscrollbox"
+
+list = TkScrollbox.new {
+  relief 'raised'
+  width 20
+  height 20
+  setgrid 'yes'
+  pack
+}
+
+# The procedure below is invoked to open a browser on a given file;  if the
+# file is a directory then another instance of this program is invoked; if
+# the file is a regular file then the Mx editor is invoked to display
+# the file.
+
+def browse (dir, file)
+  if dir != "."
+    file="#{dir}/#{file}"
+    if File.directory? file
+      system "browse #{file} &"
+    else
+      if File.file? file
+	if ENV['EDITOR']
+	  system format("%s %s&", ENV['EDITOR'], file)
+	else
+	  sysmte "xedit #{file}&"
+	end
+      else
+	STDERR.print "\"#{file}\" isn't a directory or regular file"
+      end
+    end
+  end
+end
+
+# Fill the listbox with a list of all the files in the directory (run
+# the "ls" command to get that information).
+
+if ARGV.length>0 
+  dir = ARGV[0]
+else
+  dir="."
+end
+list.insert 'end', *`ls #{dir}`.split
+
+# Set up bindings for the browser.
+
+list.focus
+list.bind "Control-q", proc{exit}
+list.bind "Control-c", proc{exit}
+list.bind "Control-p", proc{
+  print "selection <", TkSelection.get, ">\n"
+}
+
+list.bind "Double-Button-1", proc{
+  for i in TkSelection.get.split
+    print "clicked ", i, "\n"
+    browse dir, i
+  end
+}
+Tk.mainloop
-- 
cgit v1.2.3