arcadia 0.1.0

data/base/a-utils.rb

@@ -0,0 +1,780 @@
+#
+#   a-utils.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'lib/tk/al-tk'
+
+class AGTkSplittedFrames < TkFrame
+  def initialize(parent=nil, length=10, keys=nil)
+    super(parent, keys)
+    @parent = parent
+    @slen = 5
+    relief 'groove'
+  end
+
+  def maximize(_frame)
+    p = TkWinfo.parent(@parent)
+    if p.kind_of?(AGTkSplittedFrames)
+      p.maximize(@parent)
+    end
+  end
+
+  def minimize(_frame)
+    p = TkWinfo.parent(@parent)
+    if p.kind_of?(AGTkSplittedFrames)
+      p.minimize(@parent)
+    end
+  end
+
+end
+
+
+class AGTkVSplittedFrames < AGTkSplittedFrames
+  attr_reader :left_frame, :right_frame
+  def initialize(parent=nil, width=10, keys=nil)
+    super(parent, width, keys)
+    
+    self.pack(:expand=>true, :fill=>:both)
+    @left_frame = TkFrame.new(self){
+      relief 'flat'
+    }
+    x = width
+    @left_frame.place(
+      'relx' => 0,
+      'x' => 0,
+      'y' => '0',
+      'relheight' => '1',
+      'rely' => 0,
+      'bordermode' => 'inside',
+      'width' => x
+    )
+    @left_frame_obj = AGTkObjPlace.new(@left_frame, 'x', nil, false)
+    @left_frame_obj.width = x
+    @left_frame_obj.height = 0
+    @left_frame_obj.relwidth = 0
+    @left_frame_obj.relheight = 1
+
+    @splitter_frame = TkFrame.new(self){
+      relief  'raised'
+      border 1
+    }
+
+    @splitter_frame.place(
+      'relx' => 0,
+      'x' => x,
+      'y' => '0',
+      'relheight' => '1',
+      'rely' => 0,
+      'bordermode' => 'inside',
+      'width' => @slen
+    )
+    @splitter_frame.bind_append(
+      "ButtonRelease-1",
+      proc{do_resize}
+    )
+    _self = self
+    @b_left = TkButton.new{
+      image TkPhotoImage.new('dat'=>LEFT_SIDE_GIF)
+    }
+
+    @b_right = TkButton.new{
+      image TkPhotoImage.new('dat'=>RIGHT_SIDE_GIF)
+    }
+    @proc_unplace = proc{
+      @b_left.unplace
+      @b_right.unplace
+    }
+    @splitter_frame.bind_append(
+      "B1-Motion",
+      proc{@splitter_frame.raise;@proc_unplace.call}
+    )
+    @@last_b_left = nil
+    @@last_b_right = nil
+    @b_left.bind_append('ButtonPress-1',proc{_self.hide_left;@proc_unplace.call})
+    @b_right.bind_append('ButtonPress-1',proc{_self.hide_right;@proc_unplace.call})
+    @proc_place = proc{|x,y|
+      if !TkWinfo.mapped?(@b_left)
+        _x = TkWinfo.pointerx(self) - 10
+        _y = TkWinfo.pointery(self) - 20
+        if @@last_b_left != nil
+          @@last_b_left.unplace
+          @@last_b_right.unplace
+        end
+        @b_left.place('x'=>_x,'y'=>_y,'border'=>'outside')
+        @b_right.place('x'=>_x,'y'=>_y+25,'border'=>'outside')
+        @b_left.raise
+        @b_right.raise
+        @@last_b_left = @b_left
+        @@last_b_right = @b_right
+        if @thread_unplace
+          @thread_unplace.kill
+        end
+        @thread_unplace= Thread.new {
+          sleep(5)
+          @proc_unplace.call
+          kill
+        }
+      end
+    }
+
+    @splitter_frame.bind_append(
+    'ButtonPress-1',
+    proc{|x,y|
+      @thread_place= Thread.new {
+        @proc_place.call(x,y)
+      }
+    }, "%x %y")
+
+    @splitter_frame.bind_append(
+    "Enter",
+    proc{
+      @color_save = @splitter_frame.background
+      @splitter_frame.background('#9aa6a7')}
+    )
+    @splitter_frame.bind_append(
+      "Leave",
+      proc{
+        @splitter_frame.background(@color_save)
+      }
+    )
+    @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'x')
+    @splitter_frame_obj.width = @slen
+    @splitter_frame_obj.height = 0
+    @splitter_frame_obj.relwidth = 0
+    @splitter_frame_obj.relheight = 1
+    x = x + @slen
+    @right_frame = TkFrame.new(self){
+      relief 'flat'
+    }
+    @right_frame.place(
+      'relwidth' => 1,
+      'relx' => 0,
+      'x' => x,
+      'y' => 0,
+      'width' => -x,
+      'relheight' => 1,
+      'rely' => 0,
+      'bordermode' => 'inside'
+    )
+    @right_frame_obj = AGTkObjPlace.new(@right_frame, 'x', nil, false)
+    @right_frame_obj.width = -x
+    @right_frame_obj.height = 0
+    @right_frame_obj.relwidth = 1
+    @right_frame_obj.relheight = 1
+    @state = 'middle'
+    yield(self) if block_given?
+  end
+
+  def get_main_x
+    if TkWinfo.manager(@parent)=='place'
+      return TkPlace.info(@parent)['x'] / 2
+    else
+      return 20
+    end
+  end
+
+  def do_resize
+    _x = @splitter_frame_obj.x0
+    _w = @splitter_frame_obj.w
+    @left_frame_obj.width = _x
+    @left_frame_obj.go(_x,0)
+    @right_frame_obj.width = - _x - _w
+    @right_frame_obj.amove(_x + _w,0)
+  end
+
+  def hide_left
+    if (@state=='left')
+      _w = @last
+      @state = 'middle'
+      @left_frame_obj.width = _w
+      @left_frame_obj.go(_w,0)
+    else
+      _w = 0
+      @state = 'right'
+      @last = @left_frame_obj.w
+    end
+    @left_frame_obj.amove(0,0)
+    @splitter_frame_obj.amove(_w,0)
+    @right_frame_obj.width = - _w - @slen
+    @right_frame_obj.amove(_w + @slen,0)
+  end
+
+  def hide_right
+    if (@state=='right')
+      _w = @last
+      @state = 'middle'
+    else
+      _w = @right_frame_obj.w + @left_frame_obj.w #+ @slen
+      @state = 'left'
+      @last = @left_frame_obj.w
+    end
+    @right_frame_obj.width = - _w - @slen
+    @right_frame_obj.amove(_w + @slen,0)
+    @splitter_frame_obj.amove(_w,0)
+    @left_frame_obj.width = _w
+    @left_frame_obj.go(_w,0)
+  end
+
+  def maximize(_frame)
+    super(_frame)
+    case _frame
+    when left_frame
+      hide_right
+    when right_frame
+      hide_left
+    end
+    Tk.update
+  end
+
+  def minimize(_frame)
+    super(_frame)
+    case _frame
+    when left_frame
+      hide_left
+    when right_frame
+      hide_right
+    end
+    Tk.update
+  end
+
+  def hide(_name)
+  end
+
+  def show(_name)
+  end
+
+end
+
+class AGTkOSplittedFrames < AGTkSplittedFrames
+  attr_reader :top_frame, :bottom_frame
+  def initialize(parent=nil, height=10, keys=nil)
+    super(parent, height, keys)
+    self.place(
+      'relwidth' => 1,
+      'relx' => 0,
+      'x' => 0,
+      'y' => 0,
+      'relheight' => 1,
+      'rely' => 0,
+      'bordermode' => 'inside'
+    )
+    @top_frame = TkFrame.new(self){
+      relief 'flat'
+    }
+    y = height
+    @top_frame.place(
+      'relwidth' => '1',
+      'bordermode' => 'inside',
+      'height' => y
+    )
+    @top_frame_obj = AGTkObjPlace.new(@top_frame, 'y', nil, false)
+    @top_frame_obj.width = 0
+    @top_frame_obj.height = y
+    @top_frame_obj.relwidth = 1
+    @top_frame_obj.relheight = 0
+    @splitter_frame = TkFrame.new(self){
+      relief  'groove'
+      border 1
+    }
+    @splitter_frame.place(
+      'relx' => 0,
+      'x' => 0,
+      'y' => y,
+      'relwidth' => '1',
+      'rely' => 0,
+      'bordermode' => 'inside',
+      'height' => @slen
+    )
+    @splitter_frame.bind_append(
+      "B1-Motion",
+      proc{@splitter_frame.raise}
+    )
+    @splitter_frame.bind_append(
+      "ButtonRelease-1",
+      proc{do_resize}
+    )
+    @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'y')
+    @splitter_frame_obj.width = 0
+    @splitter_frame_obj.height = @slen
+    @splitter_frame_obj.relwidth = 1
+    @splitter_frame_obj.relheight = 0
+    y = y + @slen
+    @bottom_frame = TkFrame.new(self){
+      relief 'flat'
+    }
+    @bottom_frame.place(
+      'relwidth' => 1,
+      'relx' => 0,
+      'x' => 0,
+      'y' => y,
+      'height' => -y,
+      'relheight' => 1,
+      'rely' => 0,
+      'bordermode' => 'inside'
+    )
+    @bottom_frame_obj = AGTkObjPlace.new(@bottom_frame, 'y', nil, false)
+    @bottom_frame_obj.width = 0
+    @bottom_frame_obj.height = -y
+    @bottom_frame_obj.relwidth = 1
+    @bottom_frame_obj.relheight = 1
+    _xbutton = TkButton.new(@splitter_frame){
+      background '#4966d7'
+      overrelief  'raised'
+      relief  'flat'
+    }
+    _xbutton.place(
+      'x' => 0,
+      'y' => 0,
+      'relheight' => 1,
+      'bordermode' => 'outside',
+      'width' => 20
+    )
+    _xbutton.bind_append(
+      "ButtonPress-1",
+      proc{hide_top}
+    )
+    _ybutton = TkButton.new(@splitter_frame){
+      background '#118124'
+      overrelief  'raised'
+      relief  'flat'
+    }
+    _ybutton.place(
+      'x' => 21,
+      'y' => 0,
+      'bordermode' => 'outside',
+      'width' => 20,
+      'relheight' => 1
+    )
+    _ybutton.bind_append(
+      "ButtonPress-1",
+      proc{hide_bottom}
+    )
+    @state = 'middle'
+    yield(self) if block_given?
+  end
+
+  def hide_top
+    if (@state=='top')
+      _h = @last
+      @state = 'middle'
+      @top_frame_obj.height = _h
+      @top_frame_obj.go(0,_h)
+    elsif (@state=='bottom')
+      return
+    else
+      _h = 0
+      @state = 'bottom'
+      @last = @top_frame_obj.h
+    end
+    @top_frame_obj.amove(0,0)
+    @splitter_frame_obj.amove(0, _h)
+    @bottom_frame_obj.height = - _h - @slen
+    @bottom_frame_obj.amove(0,_h + @slen)
+  end
+
+  def hide_bottom
+    if (@state=='bottom')
+      _h = @last
+      @state = 'middle'
+    elsif (@state == 'top')
+      return
+    else
+      _h = @bottom_frame_obj.h + @top_frame_obj.h #+ @slen
+      @state = 'top'
+      @last = @top_frame_obj.h #+ @slen
+    end
+    @bottom_frame_obj.height = - _h - @slen
+    @bottom_frame_obj.amove(0,_h + @slen)
+    @splitter_frame_obj.amove(0,_h)
+    @top_frame_obj.height = _h
+    @top_frame_obj.go(0,_h)
+  end
+
+
+  def maximize(_frame)
+    super(_frame)
+    case _frame
+    when top_frame
+      hide_bottom
+    when bottom_frame
+      hide_top
+    end
+    Tk.update
+  end
+
+  def minimize(_frame)
+    super(_frame)
+    case _frame
+    when top_frame
+      hide_top
+    when bottom_frame
+      hide_bottom
+    end
+    Tk.update
+  end
+
+
+  def get_main_y
+    return 40
+  end
+
+  def do_resize
+    _y = @splitter_frame_obj.y0
+    _h = @splitter_frame_obj.h
+    @top_frame_obj.height = _y
+    @top_frame_obj.go(0,_y)
+    @bottom_frame_obj.height = -_y-_h
+    @bottom_frame_obj.amove(0,_y + _h)
+    #end
+  end
+
+  def hide(_name)
+  end
+
+  def show(_name)
+  end
+
+end
+
+class TkTitledFrame < TkFrame
+  attr_reader :frame
+  attr_reader :top
+
+  def initialize(parent=nil, title='...', img=nil , keys=nil)
+    super(parent, keys)
+    @state = 'normal'
+    @parent = parent
+    @title_height = 18
+   
+    @top = TkFrame.new(self){
+      background  '#303b50'
+    }.place('x'=>0, 'y'=>0,'height'=>@title_height, 'relwidth'=>1)
+    
+    @title_label =TkLabel.new(@top){
+      text title+' :: '
+      anchor  'w'
+      font  $arcadia['conf']['all.frame.title.font']
+      background  '#303b50'
+      foreground  '#e8e651'
+      compound 'left'
+      image  TkAllPhotoImage.new('file' => img) if img
+      pack('side'=> 'left','anchor'=> 'e')
+    }
+    @top_label =TkLabel.new(@top){
+      anchor  'w'
+      font  $arcadia['conf']['all.frame.title.font.italic']
+      background  '#303b50'
+      foreground  '#FFFFFF'
+      compound 'left'
+      pack('side'=> 'left','anchor'=> 'e')
+    }
+    @button_frame=TkFrame.new(@top){
+      #background  '#303b50'
+    }.pack('side'=> 'right','anchor'=> 'w')
+    
+    self.head_buttons
+    @frame = create_frame
+    @ap = Array.new
+    @apx = Array.new
+    @apy = Array.new
+    @apw = Array.new
+    @aph = Array.new
+  end
+
+  def top_text(_text)
+    @top_label.text(_text)
+  end
+
+  def title(_text)
+    @title_label.text(_text+'::')
+  end
+
+  def create_frame
+    return TkFrame.new(self).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
+  end
+
+  def add_sep(_width=0,_background =@top.background)
+    TkLabel.new(@top){||
+      text  ''
+      background  _background
+      pack('side'=> 'right','anchor'=> 'e', 'ipadx'=>_width)
+    }
+  end
+
+  def add_button(_label,_proc=nil,_image=nil, _side= 'right')
+    TkButton.new(@button_frame){
+      text  _label if _label
+      image  TkPhotoImage.new('dat' => _image) if _image
+      relief 'flat'
+      font 'helvetica 8 bold'
+      #borderwidth 0
+      #background  '#303b50'
+      #background  '#8080ff'
+      pack('side'=> _side,'anchor'=> 'e', 'padx'=>0, 'pady'=>0)
+      bind('1',_proc) if _proc
+    }
+  end
+
+  def head_buttons
+    @bmaxmin = add_button('[ ]',proc{resize}, W_MAX_GIF)
+    #@bmaxmin = add_button('[ ]',proc{resize}, EXPAND_GIF)
+  end
+
+  def resize
+    p = TkWinfo.parent(@parent)
+    if @state == 'normal'
+      if p.kind_of?(AGTkSplittedFrames)
+        p.maximize(@parent)
+        @bmaxmin.image(TkPhotoImage.new('dat' => W_NORM_GIF))
+      end
+      @state = 'maximize'
+    else
+      if p.kind_of?(AGTkSplittedFrames)
+        p.minimize(@parent)
+        @bmaxmin.image(TkPhotoImage.new('dat' =>W_MAX_GIF))
+      end
+      @state = 'normal'
+    end
+    self.raise
+  end
+
+  def maximize
+    if @state == 'normal'
+      p = TkWinfo.parent(self)
+      while (p != nil) && (TkWinfo.manager(p)=='place')
+        Tk.messageBox('message'=>p.to_s)
+        @ap << p
+        @apx << TkPlace.info(p)['x']
+        @apy << TkPlace.info(p)['y']
+        @apw << TkPlace.info(p)['width']
+        @aph << TkPlace.info(p)['height']
+        p.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
+        p.raise
+        p = TkWinfo.parent(p)
+      end
+      @state = 'maximize'
+      self.raise
+    else
+      @ap.each_index{|i|
+        @ap[i].place('x'=>@apx[i], 'y'=>@apy[i],'width'=>@apw[i], 'height'=>@aph[i],'relheight'=>1, 'relwidth'=>1)
+        @ap[i].raise
+      }
+      self.raise
+      @ap.clear
+      @apx.clear
+      @apy.clear
+      @state = 'normal'
+    end
+  end
+end
+
+class TkTitledScrollFrame < TkTitledFrame
+
+  def create_frame
+    return Tk::ScrollFrame.new(self,:scrollbarwidth=>10, :width=>300, :height=>200).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
+  end
+
+end
+
+
+
+class Application
+  ApplicationParams = Struct.new( "ApplicationParams",
+    :name,
+    :version,
+    :config_file,
+    :persistent_file
+  )
+
+  def initialize(_ap=ApplicationParams.new)
+    @@instance = self
+    eval('$'+_ap.name+'=self')
+    publish('applicationParams', _ap)
+    publish(_ap.name,self)
+    @first_run = false
+    init_config
+    yield(self) if block_given?
+  end
+	
+	def Application.instance
+	  @@instance
+	end
+
+  def init_config
+    self['applicationParams'].persistent_file = local_dir+'/'+ self['applicationParams'].name+'.pers'
+    if !File.exists?(self['applicationParams'].persistent_file)
+      File.new(self['applicationParams'].persistent_file, File::CREAT).close
+    end
+    publish('conf', config_file2hash(self['applicationParams'].config_file)) if self['applicationParams'].config_file
+    publish('pers', config_file2hash(self['applicationParams'].persistent_file)) if self['applicationParams'].persistent_file
+  end
+
+  def prepare
+  end
+
+  def publish(_name, _obj)
+    @objs = Hash.new if !defined?(@objs)
+    @objs[_name] = _obj
+  end
+
+	# this method load arcadia.conf from local directory for personalizations
+	def load_local_config(_create_if_not_exist=true)
+	    local_file_config = local_dir+'/'+File.basename(self['applicationParams'].config_file)
+	    if FileTest.exist?(local_file_config)
+	      self['conf'].update(self.config_file2hash(local_file_config))
+	    elsif _create_if_not_exist
+	      f = File.new(local_file_config, "w")
+        begin
+          if f
+            p = self['conf']
+            if p
+              p.keys.sort.each{|key|
+                f.syswrite('#'+key+'='+self['conf'][key]+"\n")
+              }
+            end
+          end
+        ensure
+          f.close unless f.nil?
+        end
+	    end
+	end
+  
+  def local_dir
+    _local_dir = ENV["HOME"]+'/.'+self['applicationParams'].name  if ENV["HOME"] 
+    if _local_dir && !File.exist?(_local_dir)
+      Dir.mkdir(_local_dir)
+      @first_run = true
+    end
+    return _local_dir
+  end
+  
+  def load_config(_config_file)
+    if _config_file &&  FileTest::exist?(_config_file)
+      f = File::open(_config_file,'r')
+      begin
+        _lines = f.readlines
+        _lines.each{|_line|
+          _strip_line = _line.strip
+          if (_strip_line.length > 0)&&(_strip_line[0,1]!='#')
+            var_plat = _line.split(':')
+            if var_plat.length > 1
+              if (RUBY_PLATFORM.include?(var_plat[0]))
+              #if (var_plat[0] == RUBY_PLATFORM)
+                _line = var_plat[1]
+              else
+                _line = ''
+              end
+            end
+            var = _line.split('=')
+            if var.length > 1
+              self['conf'][var[0].strip]=var[1].strip
+            end
+          end
+        }
+      ensure
+        f.close unless f.nil?
+      end
+    end
+  end
+
+  def config_file2hash(_config_file)
+    r_hash = Hash.new
+    if _config_file &&  FileTest::exist?(_config_file)
+      f = File::open(_config_file,'r')
+      begin
+        _lines = f.readlines
+        _lines.each{|_line|
+          _strip_line = _line.strip
+          if (_strip_line.length > 0)&&(_strip_line[0,1]!='#')
+            var_plat = _line.split(':')
+            if var_plat.length > 1
+              if (RUBY_PLATFORM.include?(var_plat[0]))
+              #if (var_plat[0] == RUBY_PLATFORM)
+                _line = var_plat[1]
+              else
+                _line = ''
+              end
+            end
+            var = _line.split('=')
+            if var.length > 1
+              r_hash[var[0].strip]=var[1].strip
+            end
+          end
+        }
+      ensure
+        f.close unless f.nil?
+      end
+      return r_hash      
+    end
+  end
+
+
+  def load_persist(_persist_file)
+		if _persist_file && !FileTest::exist?(_persist_file)
+			Dir.mkdir(File.dirname(_persist_file)) unless File.exists?(File.dirname(_persist_file))
+			File.new(_persist_file, File::CREAT)
+		end
+  
+    if _persist_file && FileTest::exist?(_persist_file)
+      f = File::open(_persist_file,'r')
+      begin
+        _lines = f.readlines
+        _lines.each{|_line|
+          _strip_line = _line.strip
+          if (_strip_line.length > 0)&&(_strip_line[0,1]!='#')
+            var = _line.split('=')
+            if var.length > 1
+              self['pers'][var[0].strip]=var[1].strip
+            end
+          end
+        }
+      ensure
+        f.close unless f.nil?
+      end
+    end
+  end
+
+  def write_persist
+    if FileTest::exist?(self['applicationParams'].persistent_file)
+      f = File.new(self['applicationParams'].persistent_file, "w")
+      begin
+        if f
+          p = self['pers']
+          if p
+            p.each{|key,value|
+              f.syswrite(key+'='+value+"\n")
+            }
+          end
+        end
+      ensure
+        f.close unless f.nil?
+      end
+    end
+  end
+
+  def create(_name, _class)
+    register(_name,_class.new)
+  end
+
+  def objects(_name)
+    return @objs[_name]
+  end
+
+  def [](_name)
+    if @objs[_name]
+      return @objs[_name]
+    else
+      raise RuntimeError, "resurce '"+_name+"' unavabled ", caller
+    end
+  end
+
+  def run
+  end
+end
+
+class TkApplication < Application
+  def run
+    Tk.mainloop
+  end
+end