arcadia 0.9.2 → 0.9.3

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

@@ -253,6 +253,7 @@ class Shell < ArcadiaExt
 #                output_mark = Arcadia.console(self,'msg'=>output_dump, 'level'=>'debug', 'mark'=>output_mark)
 #                _event.add_result(self, 'output'=>_readed)
 #              }
+              #p "da cancellare #{ _event.file } #{_event.file[-2..-1] == '~~'} #{_event.persistent == false}  #{File.exist?(_event.file)}"
               if _event.persistent == false && _event.file[-2..-1] == '~~'
                 File.delete(_event.file) if File.exist?(_event.file)
               end

data/lib/a-commons.rb

@@ -510,24 +510,30 @@ module EventBus #(or SourceEvent)
 end
 
 
-module Autils
-	def full_in_path_command(_command=nil)
-	  return nil if _command.nil?
-		_ret = nil
-		RUBY_PLATFORM =~ /win32|mingw/ ? _sep = ';':_sep=':'
-		ENV['PATH'].split(_sep).each{|_path|
-			_file = File.join(_path, _command)
-			if FileTest.exist?(_file)
-	  			_ret = _file
-			end
-		}
-		_ret
-	end
+module Cacheble
+  def self.extended(_obj)
+    _obj.__initialize_cache(_obj) 
+  end
 
-  def is_windows?
-    RUBY_PLATFORM =~ /mingw|mswin/
+  def self.included(_obj)
+    _obj.__initialize_cache(_obj)
+  end
+
+  def __initialize_cache(_obj)
+    @@cache = Hash.new
+  end
+  
+  def self.clear_cache
+    @@cache.clear
+  end
+  
+  def self.set_cache(_key, _value)
+    @@cache[_key]=_value
+  end
+  
+  def self.get_cache(_key, _value)
+    @@cache[_key]
   end
-	
 end
 
 module Configurable

data/lib/a-contracts.rb

@@ -131,16 +131,21 @@ end
 class BufferRaisedEvent < BufferEvent
 end
 
+class NoBufferExistEvent < BufferEvent
+end
+
+class OneBufferExistEvent < BufferEvent
+end
+
 #  +---------------------------------------------+
 #         Debug event
 #  +---------------------------------------------+
 
 class DebugEvent < ArcadiaEvent
-   attr_accessor :file, :row, :active
+   attr_accessor :id, :file, :row, :active, :persistent 
 end
 
 class SetBreakpointEvent < DebugEvent
-   attr_accessor :active
    attr_accessor :line_code
 end
 

data/lib/a-core.rb

@@ -22,7 +22,7 @@ class Arcadia < TkApplication
     super(
       ApplicationParams.new(
         'arcadia',
-        '0.9.2',
+        '0.9.3',
         'conf/arcadia.conf',
         'conf/arcadia.pers'
       )
@@ -939,7 +939,20 @@ class Arcadia < TkApplication
   def Arcadia.is_windows?
     RUBY_PLATFORM =~ /mingw|mswin/
   end
-
+  
+  def Arcadia.which(_command=nil)
+    return nil if _command.nil?
+    _ret = nil
+    ENV['PATH'].split(File::PATH_SEPARATOR).each{|_path|
+      _file = File.join(_path, _command)
+      if FileTest.exist?(_file)
+        _ret = _file
+        break
+      end
+    }
+    _ret
+  end
+  
   def Arcadia.menu_root(_menu_root_name, _menu_root=nil)
     if @@instance['menu_roots'] == nil
       @@instance['menu_roots'] = Hash.new
@@ -1582,7 +1595,7 @@ class ArcadiaAboutSplash < TkToplevel
       place('x' => 100,'y' => 65,'height' => 19)
     }
     @tkLabel21 = TkLabel.new(self){
-      text  'by Antonio Galeone - 2004/2010'
+      text  'by Antonio Galeone - 2004/2011'
       background  _bgcolor
       foreground  '#ffffff'
       font Arcadia.instance['conf']['splash.credits.font']
@@ -1632,13 +1645,13 @@ class ArcadiaAboutSplash < TkToplevel
   def set_progress(_max=10)
     @max = _max
     Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10,
-    :background=>'black',
-    :troughcolor=>'black',
-    :foreground=>'#a11934',
-    :variable=>@progress,
-    :borderwidth=>0,
-    :relief=>'flat',
-    :maximum=>_max).place('relwidth' => '1','y' => 146,'height' => 2)
+      :background=>'#000000',
+      :troughcolor=>'#000000',
+      :foreground=>'#a11934',
+      :variable=>@progress,
+      :borderwidth=>0,
+      :relief=>'flat',
+      :maximum=>_max).place('relwidth' => '1','y' => 146,'height' => 2)
   end
 
   def reset
@@ -1828,7 +1841,6 @@ class EventWatcherForGem
 end
 
 class ArcadiaGemsWizard
-  include Autils
   def initialize(_arcadia)
     @arcadia = _arcadia
     Arcadia.attach_listener(self, NeedRubyGemWizardEvent)
@@ -1862,7 +1874,7 @@ class ArcadiaGemsWizard
     
     sh=ArcadiaSh.new
     cmd = "gem install --remote --include-dependencies #{name}"
-    cmd="sudo #{cmd}" if !is_windows?
+    cmd="sudo #{cmd}" if !Arcadia.is_windows?
     cmd+=" --source=#{repository}" if repository
     sh.prepare_exec(cmd)    
     while sh.wait

data/lib/a-tkcommons.rb

@@ -46,6 +46,31 @@ class BWidgetTreePatched < Tk::BWidget::Tree
 #  def selectcommand(_proc=nil)
 #    self.configure('selectcommand'=>_proc)
 #  end
+
+  def selected
+    if self.selection_get[0]
+      if self.selection_get[0].respond_to?(:length) && self.selection_get[0].length >0
+       	_selected = ""
+        if self.selection_get[0].instance_of?(Array)
+          selection_lines = self.selection_get[0]
+        else
+          if String.method_defined?(:lines)
+        	   selection_lines = self.selection_get[0].lines
+          else
+        	   selection_lines = self.selection_get[0].split("\n")
+          end
+        end
+        selection_lines.each{|_block|
+          _selected = _selected + _block.to_s + "\s" 
+        }
+        _selected = _selected.strip
+      else
+        _selected = self.selection_get[0]
+      end
+    end
+    return _selected
+  end
+
 end
 
 
@@ -873,6 +898,9 @@ class TkTitledFrame < TkBaseTitledFrame
     @apy = Array.new
     @apw = Array.new
     @aph = Array.new
+    @top.bind_append("Double-Button-1", proc{resize})
+    @left_label.bind_append("Double-Button-1", proc{resize})
+    @right_label.bind_append("Double-Button-1", proc{resize})
   end
 
   def create_left_label
@@ -1495,14 +1523,14 @@ module TkAutoPostMenu
             @last_clicked.unpost
             @last_clicked = nil
           end
-
+          
           ch.menu.post(x-rx,y-ry+hh)
-
           #just_posted = TkWinfo.containing(x, y+hh)
 
           chmenus = TkWinfo.children(ch)
           @last_menu_posted = chmenus[0]
           @last_menu_posted.set_focus
+
           @last_menu_posted.bind("Enter", proc{
             @last_menu_posted.bind("Leave", proc{
               if @posting_on
@@ -1524,7 +1552,7 @@ module TkAutoPostMenu
           if @last_post
             _x = TkWinfo.x(@last_post)
             _y = TkWinfo.y(@last_post)
-            ch.event_generate("KeyPress", :keysym=>"Escape")  #if Tk.focus.kind_of?(TkMenu) &&  Tk.focus != ch.menu
+            ch.event_generate("KeyPress", :keysym=>"Escape")  if Tk.focus.kind_of?(TkMenu) &&  Tk.focus != ch.menu
             @last_post.post(_x,_y) if @last_clicked && @last_clicked == ch.menu
           end
           if @last_post!=ch.menu

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: arcadia
 version: !ruby/object:Gem::Version 
-  hash: 63
+  hash: 61
   prerelease: false
   segments: 
   - 0
   - 9
-  - 2
-  version: 0.9.2
+  - 3
+  version: 0.9.3
 platform: ruby
 authors: 
 - Antonio Galeone
@@ -15,11 +15,11 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-11-21 00:00:00 +01:00
+date: 2011-12-02 00:00:00 +01:00
 default_executable: arcadia
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: whichr
+  name: coderay
   prerelease: false
   requirement: &id001 !ruby/object:Gem::Requirement 
     none: false