diff options
Diffstat (limited to 'ext/tk/sample/demos-en/browse1')
| -rw-r--r-- | ext/tk/sample/demos-en/browse1 | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/ext/tk/sample/demos-en/browse1 b/ext/tk/sample/demos-en/browse1 index 03e251035a..568892e4a8 100644 --- a/ext/tk/sample/demos-en/browse1 +++ b/ext/tk/sample/demos-en/browse1 @@ -1,16 +1,16 @@ #!/usr/bin/env ruby # browse -- -# This script generates a directory browser, which lists the working -# directory and allow you to open files or subdirectories by -# double-clicking. +# This script generates a directory browser, which lists the working +# directory and allow you to open files or subdirectories by +# double-clicking. require 'tk' -# Create a scrollbar on the right side of the main window and a listbox +# Create a scrollbar on the right side of the main window and a listbox # on the left side. -listbox = TkListbox.new(nil, 'relief'=>'sunken', +listbox = TkListbox.new(nil, 'relief'=>'sunken', 'width'=>20, 'height'=>20, 'setgrid'=>'yes') {|l| TkScrollbar.new(nil, 'command'=>proc{|*args| l.yview *args}) {|s| pack('side'=>'right', 'fill'=>'y') @@ -23,10 +23,10 @@ listbox = TkListbox.new(nil, 'relief'=>'sunken', root = TkRoot.new root.minsize(1,1) -# 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. +# 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) file = dir + File::Separator + file if dir != '.' @@ -46,7 +46,7 @@ def browse (dir, file) end end -# Fill the listbox with a list of all the files in the directory (run +# Fill the listbox with a list of all the files in the directory (run # the "ls" command to get that information). dir = ARGV[0] ? ARGV[0] : '.' @@ -57,7 +57,7 @@ open("|ls -a #{dir}", 'r'){|fid| fid.readlines}.each{|fname| # Set up bindings for the browser. Tk.bind_all('Control-c', proc{root.destroy}) -listbox.bind('Double-Button-1', +listbox.bind('Double-Button-1', proc{TkSelection.get.each{|f| browse dir, f}}) Tk.mainloop |