arcadia 0.1.3 → 0.2.0

data/ext/ae-search-in-files/ae-search-in-files.conf

@@ -0,0 +1,15 @@
+name=search_in_files
+labels=Search in files
+frames=1.1
+active=yes
+require=ext/ae-search-in-files/ae-search-in-files
+class=SearchInFilesService
+
+font=courier 10
+font.bold=courier 10 bold
+color.background=#ffffff
+color.foreground=#000000
+freebsd::font=courier 12 italic
+freebsd::font.bold=courier 12 bold
+win::font={Courier New} 9
+win::font.bold={Courier New} 9 bold

data/ext/ae-search-in-files/ae-search-in-files.rb

@@ -0,0 +1,284 @@
+#
+#   ae-search-in-files.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+class SearchInFilesService < ArcadiaExt
+
+  def on_before_build(_event)
+    Arcadia.add_listener(SearchInFilesListener.new(self),SearchInFilesEvent)
+  end
+
+end
+
+
+class SearchInFilesListener
+  def initialize(_service)
+    @service = _service
+    create_find
+  end
+
+  def on_before_search_in_files(_event)
+    if _event.what.nil?
+      @find.show
+    end
+  end
+  
+  #def on_search_in_files(_event)
+    #Arcadia.new_msg(self, "... ti ho fregato!")
+  #end
+
+  #def on_after_search_in_files(_event)
+  #end
+  
+  def create_find
+    @find = FindFrame.new(@service.arcadia.layout.root)
+    @find.on_close=proc{@find.hide}
+    @find.hide
+    @find.b_go.bind('1', proc{Thread.new{do_find}})
+    @find.e_what_entry.bind_append('KeyRelease'){|e|
+      case e.keysym
+      when 'Return'
+        do_find
+        Tk.callback_break
+      end
+    }
+    
+  end
+  private :create_find
+  
+  def do_find
+    return if @find.e_what.text.strip.length == 0  || @find.e_filter.text.strip.length == 0  || @find.e_dir.text.strip.length == 0
+    @find.hide
+    if !defined?(@search_output)
+      @search_output = SearchOutput.new(@service)
+    else
+      @service.frame_raise
+    end
+    _search_title = 'search result for : "'+@find.e_what.text+'" in :"'+@find.e_dir.text+'"'+' ['+@find.e_filter.text+']'
+    _filter = @find.e_dir.text+'/**/'+@find.e_filter.text
+    _files = Dir[_filter]
+    _node = @search_output.new_result(_search_title, _files.length)
+    @progress_bar = TkProgressframe.new(@service.arcadia.layout.root, _files.length)		  
+    @progress_bar.title('Searching')
+    #@progress_bar.on_cancel=proc{cancel}
+    pattern = Regexp.new(@find.e_what.text)
+    _files.each do |_filename|
+        File.open(_filename) do |file|
+          file.grep(pattern) do |line|
+            @search_output.add_result(_node, _filename, file.lineno.to_s, line)
+          end
+        end
+        @progress_bar.progress
+    end    
+    @progress_bar.destroy
+
+  end
+  
+  
+end
+
+class SearchOutput
+  def initialize(_ext)
+    @sequence = 0
+    @ext = _ext
+    left_frame = TkFrame.new(@ext.frame).place('x' => '0','y' => '0','relheight' => '1','width' => '25')
+    #right_frame = TkFrame.new(@ext.frame).place('x' => '25','y' => '0','relwidth' => '1', 'relheight' => '1', 'width' => '-25')
+    @results = {}
+    _open_file = proc do |tree, sel|
+      n_parent, n = sel.split('@@@')
+      Arcadia.process_event(OpenBufferEvent.new(self,'file'=>@results[n_parent][n][0], 'row'=>@results[n_parent][n][1]))  if n && @results[n_parent][n]
+      #EditorContract.instance.open_file(self, 'file'=>@results[n_parent][n][0], 'line'=>@results[n_parent][n][1]) if n && @results[n_parent][n]
+    end
+
+    @tree = Tk::BWidget::Tree.new(@ext.frame){
+      background '#FFFFFF'
+      relief 'flat'
+      showlines true
+      linesfill '#e7de8f'
+      selectcommand _open_file 
+      deltay 15
+    }.place('x' => '25','y' => '0','relwidth' => '1', 'relheight' => '1', 'width' => '-40', 'height'=>'-15')
+    #---- y scrollbar
+    _yscrollcommand = proc{|*args| @tree.yview(*args)}
+    _yscrollbar = TkScrollbar.new(@ext.frame){|s|
+      #width 8
+      command _yscrollcommand
+    }.pack('side'=>'right', 'fill'=>'y')
+    @tree.yscrollcommand proc{|first,last| _yscrollbar.set(first,last)}
+    #---- x scrollbar
+    _xscrollcommand = proc{|*args| @tree.xview(*args)}
+    _xscrollbar = TkScrollbar.new(@ext.frame){|s|
+      #width 8
+      orient 'horizontal'
+      command _xscrollcommand
+    }.pack('side'=>'bottom', 'fill'=>'x')
+    @tree.xscrollcommand proc{|first,last| _xscrollbar.set(first,last)}
+    
+    _proc_clear = proc{clear_tree}
+    
+    @button_u = Tk::BWidget::Button.new(left_frame){
+      image  TkPhotoImage.new('dat' => CLEAR_GIF)
+      helptext 'Clear'
+      foreground 'blue'
+      command _proc_clear
+      relief 'groove'
+      pack('side' =>'top', 'anchor'=>'n',:padx=>0, :pady=>0)
+    }
+    
+    @found_color='#3f941b'
+    @not_found_color= 'red'
+    @item_color='#6fc875'
+  end  
+  
+  def clear_tree
+    @tree.delete(@tree.nodes('root'))
+    @results.clear
+  end
+  
+  def new_node_name
+    @sequence = @sequence + 1
+    return 'n'+@sequence.to_s
+  end
+  
+  def new_result(_text, _length=0)
+    @results.each_key{|key| @tree.close_tree(key)}
+    _r_node = new_node_name
+    @text_result = _text
+    #_text = _text + ' { '+_length.to_s+' found }'
+    #_length > 0 ? _color='#3f941b':_color = 'red'
+    @tree.insert('end', 'root' ,_r_node, {
+      'fill'=>@not_found_color,
+      'open'=>true,
+      'anchor'=>'w',
+      'font' => @ext.conf('font.bold'),
+      'text' =>  _text
+    })
+    Tk.update
+    @results[_r_node]={}
+    @count = 0
+    return _r_node
+  end
+  
+  def add_result(_node, _file, _line='', _line_text='')
+    @count = @count+1
+    @tree.itemconfigure(_node, 'fill'=>@found_color, 'text'=>@text_result+' { '+@count.to_s+' found }')
+    _text = _file+':'+_line+' : '+_line_text
+    _node_name = new_node_name
+    @tree.insert('end', _node ,_node+'@@@'+_node_name, {
+      'fill'=>@item_color,
+      'anchor'=>'w',
+      'font' => @ext.conf('font'),
+      'text' =>  _text.strip
+    })
+    @results[_node][_node_name]=[_file,_line]
+    Tk.update
+  end
+  
+end
+
+class FindFrame < TkFloatTitledFrame
+  attr_reader :e_what
+  attr_reader :e_what_entry
+  attr_reader :e_filter
+  attr_reader :e_dir
+  attr_reader :b_go
+  def initialize(_parent)
+    super(_parent)
+    y0 = 10
+    d = 23    
+    TkLabel.new(self.frame){
+      text 'Find what:'
+   	  place('x' => 8,'y' => y0,'height' => 19)
+    }
+    y0 = y0 + d
+    @e_what = Tk::BWidget::ComboBox.new(self.frame){
+      editable true
+      justify  'left'
+      relief  'ridge'
+      autocomplete 'true'
+      entrybg '#FFFFFF'
+      expand 'tab'
+      takefocus 'true'
+      place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
+    }
+    @e_what_entry = TkWinfo.children(@e_what)[0]
+    y0 = y0 + d
+    TkLabel.new(self.frame){
+   	  text 'Files filter:'
+   	  place('x' => 8,'y' => y0,'height' => 19)
+    }
+    y0 = y0 + d
+   
+    @e_filter = Tk::BWidget::ComboBox.new(self.frame){
+      editable true
+      justify  'left'
+      relief  'ridge'
+      autocomplete 'true'
+      #insertbackground '#FFFFFF'
+      entrybg '#FFFFFF'
+      expand 'tab'
+      takefocus 'true'
+      #pack('padx'=>10, 'fill'=>'x')
+      place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
+    }
+    @e_filter.text('*.rb')
+    y0 = y0 + d
+
+    TkLabel.new(self.frame){
+   	  text 'Directory:'
+   	  place('x' => 8,'y' => y0,'height' => 19)
+    }
+    y0 = y0 + d
+
+    _h_frame = TkFrame.new(self.frame).place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
+    @e_dir = Tk::BWidget::ComboBox.new(_h_frame){
+      editable true
+      justify  'left'
+      relief  'ridge'
+      autocomplete 'true'
+      #insertbackground '#FFFFFF'
+      entrybg '#FFFFFF'
+      expand 'tab'
+      takefocus 'true'
+      #pack('side'=>'left','fill'=>'x')
+      pack('fill'=>'x')
+      #place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
+    }
+    @e_dir.text(Dir.pwd)
+    @b_dir = TkButton.new(_h_frame){
+      compound  'none'
+      default  'disabled'
+      text  '...'
+      overrelief  'raised'
+      justify  'center'
+      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
+    }.bind('1', proc{
+      _d = Tk.chooseDirectory('initialdir'=>@e_dir.text,'mustexist'=>true)
+      if _d && _d.strip.length > 0
+        @e_dir.text(_d)
+      end
+    })
+    
+    y0 = y0 + d
+    y0 = y0 + d
+    @buttons_frame = TkFrame.new(self.frame).pack('fill'=>'x', 'side'=>'bottom')	
+
+    @b_go = TkButton.new(@buttons_frame){|_b_go|
+      compound  'none'
+      default  'disabled'
+      text  'Find'
+      overrelief  'raised'
+      justify  'center'
+      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
+    }
+    place('x'=>100,'y'=>100,'height'=> 220,'width'=> 300)
+  end
+  
+  def show
+    super
+    self.focus
+    @e_what.focus
+    @e_what_entry.selection_range(0,'end')
+  end
+end

data/ext/ae-shell/ae-shell.rb

@@ -4,13 +4,93 @@
 #
 
 require "tk"
-require "base/a-utils"
+#require "base/a-utils"
 
 class Shell < ArcadiaExt
 
-  def build
+  def on_before_build(_event)
+    Arcadia.add_listener(self, SystemExecEvent)
+    Arcadia.add_listener(self, RunRubyFileEvent)
+  end
+
+  def on_build(_event)
     @run_threads = Array.new
   end
+  
+  def on_system_exec(_event)
+    begin
+#    _cmd_ = "|ruby #{File.dirname(__FILE__)}/sh.rb #{_event.command} 2>&1"
+#    p _cmd_
+#    Thread.new do
+#      open(_cmd_,"r"){|f|
+#          Arcadia.new_debug_msg(self, f.read)
+#      }
+#    end
+    _cmd_ = "#{_event.command}"
+    if is_windows?
+      io = IO.popen(_cmd_)
+    else
+      Process.fork{
+        open(_cmd_,"r"){|f|
+          Arcadia.new_debug_msg(self, f.read)
+          #Arcadia.new_debug_msg(self, f.read)
+        }
+      }
+    end
+    rescue Exception => e
+      Arcadia.new_debug_msg(self, e)
+    end
+
+  end
+  
+  def on_run_ruby_file(_event)
+    _filename = _event.file
+    _filename = @arcadia['pers']['run.file.last'] if _filename == "*LAST"
+    if _filename && File.exists?(_filename)
+      begin
+        @arcadia['pers']['run.file.last']=_filename
+        _cmd_ = "|"+@arcadia['conf']['shell.ruby']+" "+_filename+" 2>&1"
+        open(_cmd_,"r"){|f|
+           _readed = f.read
+           Arcadia.new_debug_msg(self, _readed)
+           _event.add_result(self, 'output'=>_readed)
+        }
+      rescue Exception => e
+        Arcadia.new_debug_msg(self, e)
+      end
+    end
+  end
+
+  def on_system_exec_bo(_event)
+    command = "#{_event.command} 2>&1"
+    (RUBY_PLATFORM.include?('mswin32'))?_cmd="cmd":_cmd='sh'
+    if is_windows?
+      Thread.new{
+        Arcadia.new_debug_msg(self, 'inizio')
+        @io = IO.popen(_cmd,'r+')
+        @io.puts(command)
+        result = ''
+        while line = @io.gets
+           result << line
+        end 
+        Arcadia.new_debug_msg(self, result)
+      }
+    else
+      Process.fork{
+        open(_cmd_,"r"){|f|
+          Arcadia.new_debug_msg(self, f.read)
+        }
+      }
+    end
+  end
+
+
+
+  def is_windows?
+    !(RUBY_PLATFORM =~ /(win|w)32$/).nil?
+    #RUBY_PLATFORM.include?('win')
+  end
+
 
   def run_last
     run($arcadia['pers']['run.file.last'])
@@ -33,16 +113,16 @@ class Shell < ArcadiaExt
   def run(_filename=nil)
     if _filename
       begin
-        $arcadia['pers']['run.file.last']=_filename
-        @run_threads << Thread.new{
+        @arcadia['pers']['run.file.last']=_filename
+        @run_threads << Thread.new do
           _cmd_ = "|"+$arcadia['conf']['shell.ruby']+" "+_filename+" 2>&1"
-          #  MsgContract.instance.out_debug(self, _cmd_)
+          #  Arcadia.new_debug_msg(self, _cmd_)
           @cmd = open(_cmd_,"r"){|f|
-              MsgContract.instance.out_debug(self, f.read)
+              Arcadia.new_debug_msg(self, f.read)
           }
-        }
+        end
       rescue Exception => e
-        MsgContract.instance.out_debug(self, e)
+        Arcadia.new_debug_msg(self, e)
       end
     end
   end

data/ext/ae-shell/sh.rb

@@ -0,0 +1,7 @@
+_std_ = "ruby"
+$*.each{|arg|
+  _std_=_std_+" "+arg
+}
+if Kernel.system(_std_)
+  Kernel.system('y')
+end

metadata

@@ -1,10 +1,10 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.8.11
+rubygems_version: 0.9.4
 specification_version: 1
 name: arcadia
 version: !ruby/object:Gem::Version 
-  version: 0.1.3
-date: 2007-07-02 00:00:00 +02:00
+  version: 0.2.0
+date: 2007-10-25 00:00:00 +02:00
 summary: An Ide for Ruby application building with ruby-tk.
 require_paths: 
 - lib
@@ -25,115 +25,82 @@ required_ruby_version: !ruby/object:Gem::Version::Requirement
 platform: ruby
 signing_key: 
 cert_chain: 
+post_install_message: 
 authors: 
 - Antonio Galeone
 files: 
-- base/a-libs.rb
-- base/a-ext.rb
-- base/a-utils.rb
 - base/a-contracts.rb
-- base/a-contracts-work.rb
+- base/a-commons.rb
+- base/a-tkcommons.rb
 - conf/arcadia.conf
 - conf/arcadia.init.rb
 - conf/arcadia.res.rb
 - ext/ae-inspector
-- ext/ae-shell
-- ext/ae-complete-code
-- ext/ae-palette
-- ext/ae-debug
-- ext/ae-editor
-- ext/ae-output
-- ext/ae-event-log
-- ext/ae-output-event
-- ext/ae-file-history
-- ext/ae-doc-code
-- ext/ae-ruby-debug
-- ext/ae-flag
 - ext/ae-inspector/ae-inspector.rb
 - ext/ae-inspector/ae-inspector.conf
+- ext/ae-shell
 - ext/ae-shell/ae-shell.conf
 - ext/ae-shell/ae-shell.rb
+- ext/ae-shell/sh.rb
+- ext/ae-complete-code
 - ext/ae-complete-code/ae-complete-code.conf
 - ext/ae-complete-code/ae-complete-code.rb
+- ext/ae-palette
 - ext/ae-palette/ae-palette.rb
 - ext/ae-palette/ae-palette.conf
-- ext/ae-debug/ae-debug.rb
-- ext/ae-debug/debug1.57.rb
-- ext/ae-debug/ae-debug.conf
+- ext/ae-editor
 - ext/ae-editor/ae-editor.rb
 - ext/ae-editor/ae-editor.conf
+- ext/ae-editor/langs
+- ext/ae-editor/langs/rbw.lang.bind
+- ext/ae-editor/langs/rb.lang
+- ext/ae-editor/langs/conf.lang
+- ext/ae-editor/langs/lang.lang.bind
+- ext/ae-output
 - ext/ae-output/ae-output.rb
 - ext/ae-output/ae-output.conf
+- ext/ae-event-log
 - ext/ae-event-log/ae-event-log.conf
 - ext/ae-event-log/ae-event-log.rb
+- ext/ae-output-event
 - ext/ae-output-event/ae-output-event.conf
+- ext/ae-file-history
 - ext/ae-file-history/ae-file-history.rb
 - ext/ae-file-history/ae-file-history.conf
+- ext/ae-doc-code
 - ext/ae-doc-code/ae-doc-code.rb
 - ext/ae-doc-code/ae-doc-code.conf
+- ext/ae-ruby-debug
 - ext/ae-ruby-debug/ae-ruby-debug.rb
 - ext/ae-ruby-debug/ae-ruby-debug.conf
+- ext/ae-flag
 - ext/ae-flag/ae-flag.rb
 - ext/ae-flag/ae-flag.conf
-- lib/tk
-- lib/tkext
-- lib/tk/al-tk.rb
-- lib/tk/al-tkarcadia.rb
-- lib/tk/al-tkcustom.rb
-- lib/tk/al-tk.res.rb
-- lib/tkext/al-bwidget.rb
-- lib/tkext/al-iwidgets.rb
-- lib/tkext/al-tile.rb
-- lib/tkext/al-tktable.rb
+- ext/ae-search-in-files
+- ext/ae-search-in-files/ae-search-in-files.rb
+- ext/ae-search-in-files/ae-search-in-files.conf
+- ext/ae-rad
+- ext/ae-rad/ae-rad.rb
+- ext/ae-rad/ae-rad.conf
+- ext/ae-rad/ae-rad-inspector.rb
+- ext/ae-rad/ae-rad-palette.rb
+- ext/ae-rad/lib
+- ext/ae-rad/lib/tkext
+- ext/ae-rad/lib/tkext/al-bwidget.rb
+- ext/ae-rad/lib/tkext/al-iwidgets.rb
+- ext/ae-rad/lib/tkext/al-tile.rb
+- ext/ae-rad/lib/tkext/al-tktable.rb
+- ext/ae-rad/lib/tk
+- ext/ae-rad/lib/tk/al-tk.rb
+- ext/ae-rad/lib/tk/al-tkarcadia.rb
+- ext/ae-rad/lib/tk/al-tkcustom.rb
+- ext/ae-rad/lib/tk/al-tk.res.rb
+- ext/ae-rad/ae-rad-libs.rb
+- ext/ae-action-dispatcher
+- ext/ae-action-dispatcher/ae-action-dispatcher.rb
+- ext/ae-action-dispatcher/ae-action-dispatcher.conf
 - tcl/BWidget-1.8.0
 - tcl/BWidget-1.8.0/BWman
-- tcl/BWidget-1.8.0/demo
-- tcl/BWidget-1.8.0/images
-- tcl/BWidget-1.8.0/lang
-- tcl/BWidget-1.8.0/tests
-- tcl/BWidget-1.8.0/arrow.tcl
-- tcl/BWidget-1.8.0/bitmap.tcl
-- tcl/BWidget-1.8.0/button.tcl
-- tcl/BWidget-1.8.0/buttonbox.tcl
-- tcl/BWidget-1.8.0/color.tcl
-- tcl/BWidget-1.8.0/combobox.tcl
-- tcl/BWidget-1.8.0/dialog.tcl
-- tcl/BWidget-1.8.0/dragsite.tcl
-- tcl/BWidget-1.8.0/dropsite.tcl
-- tcl/BWidget-1.8.0/dynhelp.tcl
-- tcl/BWidget-1.8.0/entry.tcl
-- tcl/BWidget-1.8.0/font.tcl
-- tcl/BWidget-1.8.0/init.tcl
-- tcl/BWidget-1.8.0/label.tcl
-- tcl/BWidget-1.8.0/labelentry.tcl
-- tcl/BWidget-1.8.0/labelframe.tcl
-- tcl/BWidget-1.8.0/listbox.tcl
-- tcl/BWidget-1.8.0/mainframe.tcl
-- tcl/BWidget-1.8.0/messagedlg.tcl
-- tcl/BWidget-1.8.0/notebook.tcl
-- tcl/BWidget-1.8.0/pagesmgr.tcl
-- tcl/BWidget-1.8.0/panedw.tcl
-- tcl/BWidget-1.8.0/panelframe.tcl
-- tcl/BWidget-1.8.0/passwddlg.tcl
-- tcl/BWidget-1.8.0/pkgIndex.tcl
-- tcl/BWidget-1.8.0/progressbar.tcl
-- tcl/BWidget-1.8.0/progressdlg.tcl
-- tcl/BWidget-1.8.0/scrollframe.tcl
-- tcl/BWidget-1.8.0/scrollview.tcl
-- tcl/BWidget-1.8.0/scrollw.tcl
-- tcl/BWidget-1.8.0/separator.tcl
-- tcl/BWidget-1.8.0/spinbox.tcl
-- tcl/BWidget-1.8.0/statusbar.tcl
-- tcl/BWidget-1.8.0/titleframe.tcl
-- tcl/BWidget-1.8.0/tree.tcl
-- tcl/BWidget-1.8.0/utils.tcl
-- tcl/BWidget-1.8.0/wizard.tcl
-- tcl/BWidget-1.8.0/xpm2image.tcl
-- tcl/BWidget-1.8.0/widget.tcl
-- tcl/BWidget-1.8.0/CHANGES.txt
-- tcl/BWidget-1.8.0/ChangeLog
-- tcl/BWidget-1.8.0/LICENSE.txt
-- tcl/BWidget-1.8.0/README.txt
 - tcl/BWidget-1.8.0/BWman/options.htm
 - tcl/BWidget-1.8.0/BWman/BWidget.html
 - tcl/BWidget-1.8.0/BWman/Button.html
@@ -172,6 +139,7 @@ files:
 - tcl/BWidget-1.8.0/BWman/index.html
 - tcl/BWidget-1.8.0/BWman/navtree.html
 - tcl/BWidget-1.8.0/BWman/ArrowButton.html
+- tcl/BWidget-1.8.0/demo
 - tcl/BWidget-1.8.0/demo/x1.xbm
 - tcl/BWidget-1.8.0/demo/bwidget.xbm
 - tcl/BWidget-1.8.0/demo/demo.tcl
@@ -181,6 +149,7 @@ files:
 - tcl/BWidget-1.8.0/demo/tmpldlg.tcl
 - tcl/BWidget-1.8.0/demo/tree.tcl
 - tcl/BWidget-1.8.0/demo/basic.tcl
+- tcl/BWidget-1.8.0/images
 - tcl/BWidget-1.8.0/images/warning.gif
 - tcl/BWidget-1.8.0/images/copy.gif
 - tcl/BWidget-1.8.0/images/cut.gif
@@ -212,12 +181,57 @@ files:
 - tcl/BWidget-1.8.0/images/underline.gif
 - tcl/BWidget-1.8.0/images/undo.gif
 - tcl/BWidget-1.8.0/images/bold.gif
+- tcl/BWidget-1.8.0/lang
 - tcl/BWidget-1.8.0/lang/da.rc
 - tcl/BWidget-1.8.0/lang/de.rc
 - tcl/BWidget-1.8.0/lang/en.rc
 - tcl/BWidget-1.8.0/lang/es.rc
 - tcl/BWidget-1.8.0/lang/fr.rc
+- tcl/BWidget-1.8.0/tests
 - tcl/BWidget-1.8.0/tests/entry.test
+- tcl/BWidget-1.8.0/arrow.tcl
+- tcl/BWidget-1.8.0/bitmap.tcl
+- tcl/BWidget-1.8.0/button.tcl
+- tcl/BWidget-1.8.0/buttonbox.tcl
+- tcl/BWidget-1.8.0/color.tcl
+- tcl/BWidget-1.8.0/combobox.tcl
+- tcl/BWidget-1.8.0/dialog.tcl
+- tcl/BWidget-1.8.0/dragsite.tcl
+- tcl/BWidget-1.8.0/dropsite.tcl
+- tcl/BWidget-1.8.0/dynhelp.tcl
+- tcl/BWidget-1.8.0/entry.tcl
+- tcl/BWidget-1.8.0/font.tcl
+- tcl/BWidget-1.8.0/init.tcl
+- tcl/BWidget-1.8.0/label.tcl
+- tcl/BWidget-1.8.0/labelentry.tcl
+- tcl/BWidget-1.8.0/labelframe.tcl
+- tcl/BWidget-1.8.0/listbox.tcl
+- tcl/BWidget-1.8.0/mainframe.tcl
+- tcl/BWidget-1.8.0/messagedlg.tcl
+- tcl/BWidget-1.8.0/notebook.tcl
+- tcl/BWidget-1.8.0/pagesmgr.tcl
+- tcl/BWidget-1.8.0/panedw.tcl
+- tcl/BWidget-1.8.0/panelframe.tcl
+- tcl/BWidget-1.8.0/passwddlg.tcl
+- tcl/BWidget-1.8.0/pkgIndex.tcl
+- tcl/BWidget-1.8.0/progressbar.tcl
+- tcl/BWidget-1.8.0/progressdlg.tcl
+- tcl/BWidget-1.8.0/scrollframe.tcl
+- tcl/BWidget-1.8.0/scrollview.tcl
+- tcl/BWidget-1.8.0/scrollw.tcl
+- tcl/BWidget-1.8.0/separator.tcl
+- tcl/BWidget-1.8.0/spinbox.tcl
+- tcl/BWidget-1.8.0/statusbar.tcl
+- tcl/BWidget-1.8.0/titleframe.tcl
+- tcl/BWidget-1.8.0/tree.tcl
+- tcl/BWidget-1.8.0/utils.tcl
+- tcl/BWidget-1.8.0/wizard.tcl
+- tcl/BWidget-1.8.0/xpm2image.tcl
+- tcl/BWidget-1.8.0/widget.tcl
+- tcl/BWidget-1.8.0/CHANGES.txt
+- tcl/BWidget-1.8.0/ChangeLog
+- tcl/BWidget-1.8.0/LICENSE.txt
+- tcl/BWidget-1.8.0/README.txt
 - arcadia.rb
 - README
 test_files: []