arcadia 0.1.1 → 0.1.2

data/ext/ae-file-history/ae-file-history.conf

@@ -7,8 +7,8 @@ class=FileH
 
 file.name=arcadia.history
 length=34
-font=courier 9
-font.bold=courier 9 bold
+font=courier 12
+font.bold=courier 12 bold
 color.background=#ffffff
 color.foreground=#000000
 i386-freebsd6::font=courier 12 italic

data/ext/ae-file-history/ae-file-history.rb

@@ -1,290 +1,286 @@
-#
-#   ae-file-history.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-require "base/a-ext"
-
-
-class TreeNode
-  attr_reader :sons
-  attr_reader :parent
-  attr_reader :kind
-  attr_reader :rif, :label, :helptext
-  attr_writer :rif, :label, :helptext
-  def initialize(parent=nil, kind='KClass')
-    @sons = Array.new
-    @parent = parent
-    @kind = kind
-    @label = ''
-    if @parent !=nil
-      @parent.sons << self
-    end
-    yield(self) if block_given?
-  end
-
-  def <=> (other)
-    self.label.strip <=> other.label.strip
-  end
-	
-	def path
-	  _path = @label
-	  if @parent != nil
-	    _path = @parent.path+_path
-	  end
-	  return _path
-	end
-
-	def dir(_path)
-	  node = nil
-	  sons.each{|_tree|
-	     if _path[0.._tree.label.length-1] == _tree.label 
-				 res = _path[_tree.label.length.._path.length-1]
-				 if ["\\","/"].include?(res[0,1])
-				   node= _tree.dir(res)
-				 end
-			 end
-			 break if node != nil
-	  }
-	  if node == nil
-	    node = TreeNode.new(self,'KDir') do |_node|
-      		_node.label=_path
-      		_node.rif= self.path+_path
-	    end
-	  end
-	  return node
-	end
-end
-
-
-
-class FileH < ArcadiaExt
-  attr_reader :htree
-
-	def before_build
-	end
-
-  def build
-    @h_stack = Array.new
-    do_select_item = proc{|_self|
-      if _self.selection_get[0].length >0
-      	_selected = ""
-      	_self.selection_get[0].each{|_block|
-       	 _selected = _selected + _block.to_s + "\s" 
-      	}
-      	_selected = _selected.strip
-      else
-        _selected = _self.selection_get[0]
-      end
-      _dir, _file = _selected.split('@@@')
-      if _file
-        _file = File.expand_path( _file  , _dir ) 
-	    else
-	      _file = Tk.getOpenFile('initialdir'=>_dir)
-	    end
-	    if _file
-        EditorContract.instance.open_file(EditorContract::TEditorObj.new(self,'file'=>_file))
-      end
-    }
-    _background = conf('color.background')
-    _foreground = conf('color.foreground')
-    @font =  conf('font')
-    @font_b = conf('font.bold')
-
-	  @htree = Tk::BWidget::Tree.new(self.frame){
-      relief 'flat'
-      showlines false
-      deltay 18
-      background _background
-      crossfill _foreground
-      #dragenabled true
-      selectcommand proc{ do_select_item.call(self) } 
-      place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
-    }
-	  self.build_tree
-	end
-	
-	def after_build
-    ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-	end
-	
-	def history_file
-    if !defined?(@arcadia_history_file)
-    		@arcadia_history_file = @arcadia.local_dir+'/'+conf('file.name')
-    end
-    return @arcadia_history_file
-	end
-		
-	def do_editor_event(_event)
-     case _event.signature 
-     		when EditorContract::FILE_AFTER_OPEN
-     		  if _event.context.file
-    		    self.add2history(_event.context.file)
-    		    add_to_tree(_event.context.file)
-     				end
-     		when EditorContract::FILE_AFTER_CLOSE
-     		  if _event.context.file 
-     				end
-     end
-	end
-
-  def root
-    if !defined?(@root)
-      @root = TreeNode.new(nil, 'KRoot'){|_node|
-        _node.rif= 'root'
-        _node.label=''
-      }
-    end
-    return @root
-  end
-  
-  def build_tree
-		file_dir = Hash.new
-		nodes = Array.new
-    if File.exist?(history_file)
-      f = File::open(history_file,'r')
-      f_open = $arcadia['pers']['editor.files.open'].split("|") if $arcadia['pers']['editor.files.open']
-      begin
-        _lines = f.readlines.collect!{| line | line.chomp+"\n" }.to_s
-        _lines.sort.each{|_line|
-          _file = _line.split(';')[0]
-          if FileTest::exist?(_file)
-						dir,fil =File.split(File.expand_path(_file))
-						file_dir[dir] = Array.new if file_dir[dir] == nil
-						file_dir[dir] << fil if !file_dir[dir].include?(fil)
-          end
-        }
-      ensure
-        f.close unless f.nil?
-      end
-    end
-
-    file_dir.keys.sort.each{|_dir|
-    				node = root.dir(_dir)
-				file_dir[_dir].each{|file|
-				  TreeNode.new(node, 'KFile'){|_node|
-            _node.rif= _dir+'@@@'+file
-            _node.label=file
-				  }
-				}
-    }
-
-		build_tree_from_node(root)
-  end
-
-  def add_to_tree(_file)
-		_d, _f = File.split(File.expand_path(_file))
-    _foreground = conf('color.foreground')
-		node = root.dir(_d)
-    if !@htree.exist?(node.rif)
-      @htree.insert('end', 'root' ,node.rif, {
-          'text' =>  _d ,
-          'helptext' => _d,
-          'deltax'=>-1,
-          'fill' => _foreground,
-          'font'=>@font,
-          'window'=> window('KDir')
-        }
-      )
-    end
-    _file_node_rif = _d+'@@@'+_f
-    if !@htree.exist?(_file_node_rif)
-      @htree.insert('end', node.rif ,_file_node_rif, {
-          'text' =>  _f ,
-          'helptext' => _f,
-          'deltax'=>-1,
-          'fill' => _foreground,
-          'font'=>@font_b,
-          'window'=> window('KFile',_f)
-        }
-      )
-    end
-    
-  end
- 
-  def window(_kind, _label='.rb')
-      _background = conf('color.background')
-      _foreground = conf('color.foreground')
-
-      if _kind == 'KDir'
-        return TkLabel.new(self.frame){
-          image  TkPhotoImage.new('dat' => BOOK_GIF)
-          background(_background)
-          foreground(_foreground)
-        }
-      elsif _kind == 'KFile'
-        if _label.include?('.rb')
-          _image = RUBY_DOCUMENT_GIF
-        else
-          _image = DOCUMENT_GIF
-        end
-        return TkLabel.new(self.frame){
-          image  TkPhotoImage.new('dat' => _image)
-          background(_background)
-          foreground(_foreground)
-        }
-      end
-  end
-
-  def build_tree_from_node(_node)
-    _foreground = conf('color.foreground')
-    _sorted_sons = _node.sons.sort
-    for inode in 0.._sorted_sons.length - 1
-      _son = _sorted_sons[inode]
-      _window = window(_son.kind, _son.label)
-      @htree.insert('end', _son.parent.rif ,_son.rif, {
-        'text' =>  _son.label ,
-        'fill' => _foreground,
-        'helptext' => _son.helptext,
-        'deltax'=>-1,
-        'font'=>@font,
-        'window'=> _window
-      }
-      )
-      build_tree_from_node(_son)
-    end
-  end
-
-
-  def add2history(_filename, _text_index='1.0')
-    if _filename
-      _filename = _filename.downcase.sub(Dir::pwd.downcase+'/',"")
-      _filename = File.expand_path(_filename)
-      _filename_index = _filename+";"+_text_index
-
-      if File.exist?(history_file)
-        f = File::open(history_file,'r')
-        begin
-          _lines = f.readlines.collect!{| line | line.chomp}
-        ensure
-          f.close unless f.nil?
-        end
-        f = File.new(history_file, "w")
-        begin
-          if f
-            _l= conf('length').to_i
-            f.syswrite(_filename_index+"\n")
-            _lines[0.._l-1].each{|_line|
-              _lfile = _line.split(';')
-              if _lfile
-                f.syswrite(_line+"\n") if (_lfile[0] != _filename)&&(_line.length > 0)
-              end
-            }
-          end
-        ensure
-          f.close unless f.nil?
-        end
-      else
-     			dir,fil =File.split(File.expand_path(history_file))
-     			if !File.exist?(dir)
-     			  Dir.mkdir(dir)
-     			end
-        f = File.new(history_file, "w+")
-        begin
-          f.syswrite(_filename+"\n") if f
-        ensure
-          f.close unless f.nil?
-        end
-      end
-    end
-  end
-end
+#
+#   ae-file-history.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+require "base/a-ext"
+
+
+class TreeNode
+  attr_reader :sons
+  attr_reader :parent
+  attr_reader :kind
+  attr_reader :rif, :label, :helptext
+  attr_writer :rif, :label, :helptext
+  def initialize(parent=nil, kind='KClass')
+    @sons = Array.new
+    @parent = parent
+    @kind = kind
+    @label = ''
+    if @parent !=nil
+      @parent.sons << self
+    end
+    yield(self) if block_given?
+  end
+
+  def <=> (other)
+    self.label.strip <=> other.label.strip
+  end
+	
+	def path
+	  _path = @label
+	  if @parent != nil
+	    _path = @parent.path+_path
+	  end
+	  return _path
+	end
+
+	def dir(_path)
+	  node = nil
+	  sons.each{|_tree|
+	     if _path[0.._tree.label.length-1] == _tree.label 
+				 res = _path[_tree.label.length.._path.length-1]
+				 if ["\\","/"].include?(res[0,1])
+				   node= _tree.dir(res)
+				 end
+			 end
+			 break if node != nil
+	  }
+	  if node == nil
+	    node = TreeNode.new(self,'KDir') do |_node|
+      		_node.label=_path
+      		_node.rif= self.path+_path
+	    end
+	  end
+	  return node
+	end
+end
+
+
+
+class FileH < ArcadiaExt
+  attr_reader :htree
+
+	def before_build
+	end
+
+  def build
+    @h_stack = Array.new
+    do_select_item = proc{|_self|
+      if _self.selection_get[0].length >0
+      	_selected = ""
+      	_self.selection_get[0].each{|_block|
+       	 _selected = _selected + _block.to_s + "\s" 
+      	}
+      	_selected = _selected.strip
+      else
+        _selected = _self.selection_get[0]
+      end
+      _dir, _file = _selected.split('@@@')
+      if _file
+        _file = File.expand_path( _file  , _dir ) 
+	    else
+	      _file = Tk.getOpenFile('initialdir'=>_dir)
+	    end
+	    if _file
+        EditorContract.instance.open_file(self,'file'=>_file)
+      end
+    }
+    _background = conf('color.background')
+    _foreground = conf('color.foreground')
+    @font =  conf('font')
+    @font_b = conf('font.bold')
+
+	  @htree = Tk::BWidget::Tree.new(self.frame){
+      relief 'flat'
+      showlines false
+      deltay 18
+      background _background
+      crossfill _foreground
+      #dragenabled true
+      selectcommand proc{ do_select_item.call(self) } 
+      place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
+    }
+    _scrollcommand = proc{|*args| @htree.yview(*args)}
+    _scrollbar = TkScrollbar.new(self.frame){|s|
+      width 8
+      command _scrollcommand
+    }.pack('side'=>'right', 'fill'=>'y')
+    @htree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
+    
+	  self.build_tree
+	end
+	
+	def after_build
+    ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+	end
+	
+	def history_file
+    if !defined?(@arcadia_history_file)
+    		@arcadia_history_file = @arcadia.local_dir+'/'+conf('file.name')
+    end
+    return @arcadia_history_file
+	end
+		
+	def do_editor_event(_event)
+     case _event.signature 
+     		when EditorContract::FILE_AFTER_OPEN
+     		  if _event.context.file
+    		    self.add2history(_event.context.file)
+    		    add_to_tree(_event.context.file)
+     				end
+     		when EditorContract::FILE_AFTER_CLOSE
+     		  if _event.context.file 
+     				end
+     end
+	end
+
+  def root
+    if !defined?(@root)
+      @root = TreeNode.new(nil, 'KRoot'){|_node|
+        _node.rif= 'root'
+        _node.label=''
+      }
+    end
+    return @root
+  end
+  
+  def build_tree
+		file_dir = Hash.new
+		nodes = Array.new
+    if File.exist?(history_file)
+      f = File::open(history_file,'r')
+      f_open = $arcadia['pers']['editor.files.open'].split("|") if $arcadia['pers']['editor.files.open']
+      begin
+        _lines = f.readlines.collect!{| line | line.chomp+"\n" }.to_s
+        _lines.sort.each{|_line|
+          _file = _line.split(';')[0]
+          if FileTest::exist?(_file)
+						dir,fil =File.split(File.expand_path(_file))
+						file_dir[dir] = Array.new if file_dir[dir] == nil
+						file_dir[dir] << fil if !file_dir[dir].include?(fil)
+          end
+        }
+      ensure
+        f.close unless f.nil?
+      end
+    end
+
+    file_dir.keys.sort.each{|_dir|
+    				node = root.dir(_dir)
+				file_dir[_dir].each{|file|
+				  TreeNode.new(node, 'KFile'){|_node|
+            _node.rif= _dir+'@@@'+file
+            _node.label=file
+				  }
+				}
+    }
+
+	@image_kdir = TkPhotoImage.new('dat' => BOOK_GIF)
+	@image_kfile_rb = TkPhotoImage.new('dat' => RUBY_DOCUMENT_GIF)
+	@image_kfile = TkPhotoImage.new('dat' => DOCUMENT_GIF)
+
+		build_tree_from_node(root)
+  end
+
+  def add_to_tree(_file)
+		_d, _f = File.split(File.expand_path(_file))
+    _foreground = conf('color.foreground')
+		node = root.dir(_d)
+    if !@htree.exist?(node.rif)
+      @htree.insert('end', 'root' ,node.rif, {
+          'text' =>  _d ,
+          'helptext' => _d,
+          'deltax'=>-1,
+          'fill' => _foreground,
+          'font'=>@font,
+          'image'=> image('KDir')
+        }
+      )
+    end
+    _file_node_rif = _d+'@@@'+_f
+    if !@htree.exist?(_file_node_rif)
+      @htree.insert('end', node.rif ,_file_node_rif, {
+          'text' =>  _f ,
+          'helptext' => _f,
+          'deltax'=>-1,
+          'fill' => _foreground,
+          'font'=>@font_b,
+          'image'=> image('KFile',_f)
+        }
+      )
+    end
+    
+  end
+ 
+  def image(_kind, _label='.rb')
+      if _kind == 'KDir'
+        return @image_kdir
+      elsif _kind == 'KFile' && _label.include?('.rb')
+        return @image_kfile_rb
+      else
+        return @image_kfile
+      end
+  end
+
+  def build_tree_from_node(_node)
+    _foreground = conf('color.foreground')
+    _sorted_sons = _node.sons.sort
+    for inode in 0.._sorted_sons.length - 1
+      _son = _sorted_sons[inode]
+      @htree.insert('end', _son.parent.rif ,_son.rif, {
+        'text' =>  _son.label ,
+        'fill' => _foreground,
+        'helptext' => _son.helptext,
+        'deltax'=>-1,
+        'font'=>@font,
+        'image'=> image(_son.kind, _son.label)
+      }
+      )
+      build_tree_from_node(_son)
+    end
+  end
+
+
+  def add2history(_filename, _text_index='1.0')
+    if _filename
+      _filename = _filename.downcase.sub(Dir::pwd.downcase+'/',"")
+      _filename = File.expand_path(_filename)
+      _filename_index = _filename+";"+_text_index
+
+      if File.exist?(history_file)
+        f = File::open(history_file,'r')
+        begin
+          _lines = f.readlines.collect!{| line | line.chomp}
+        ensure
+          f.close unless f.nil?
+        end
+        f = File.new(history_file, "w")
+        begin
+          if f
+            _l= conf('length').to_i
+            f.syswrite(_filename_index+"\n")
+            _lines[0.._l-1].each{|_line|
+              _lfile = _line.split(';')
+              if _lfile
+                f.syswrite(_line+"\n") if (_lfile[0] != _filename)&&(_line.length > 0)
+              end
+            }
+          end
+        ensure
+          f.close unless f.nil?
+        end
+      else
+     			dir,fil =File.split(File.expand_path(history_file))
+     			if !File.exist?(dir)
+     			  Dir.mkdir(dir)
+     			end
+        f = File.new(history_file, "w+")
+        begin
+          f.syswrite(_filename+"\n") if f
+        ensure
+          f.close unless f.nil?
+        end
+      end
+    end
+  end
+end