class Tk::BLT::Tree::Notify - tk-0.1.2 Documentation

# class Tk::BLT::Tree::Notify

### Constants

NotifyID_TBL

### Public Class Methods

id2obj(tree, id) click to toggle source

    # File lib/tkextlib/blt/tree.rb, line 375
    def self.id2obj(tree, id)
      tpath = tree.path
      NotifyID_TBL.mutex.synchronize{
        if NotifyID_TBL[tpath]
          if NotifyID_TBL[tpath][id]
            NotifyID_TBL[tpath][id]
          else
            (obj = self.allocate).instance_eval{
              @parent = @tree = tree
              @tpath = @parent.path
              @path = @id = id
              NotifyID_TBL[@tpath] ||= {}
              NotifyID_TBL[@tpath][@id] = self
            }
            obj
          end
        else
          return id
        end
      }
    end

new(tree, *args, &b) click to toggle source

    # File lib/tkextlib/blt/tree.rb, line 397
    def self.new(tree, *args, &b)
      NotifyID_TBL.mutex.synchronize{
        if tree.kind_of?(Array)
          # not create
          tpath = tree[0].path
          NotifyID_TBL[tpath] ||= {}
          unless (obj = NotifyID_TBL[tpath][tree[1]])
            (NotifyID_TBL[tpath][tree[1]] =
               obj = self.allocate).instance_eval{
              @parent = @tree = tree[0]
              @tpath = @parent.path
              @path = @id = tree[1]
            }
          end
          return obj
        end

        (obj = self.allocate).instance_eval{
          initialize(tree, *args, &b)
          NotifyID_TBL[@tpath] ||= {}
          NotifyID_TBL[@tpath][@id] = self
        }
        return obj
      }
    end

new(tree, *args, &b) click to toggle source

    # File lib/tkextlib/blt/tree.rb, line 423
    def initialize(tree, *args, &b)
      @parent = @tree = tree
      @tpath = @parent.path

      # if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
      if TkComm._callback_entry?(args[0])
        cmd = args.shift
      # elsif args[-1].kind_of?(Proc) || args[-1].kind_of?(Method)
      elsif TkComm._callback_entry?(args[-1])
        cmd = args.pop
      elsif b
        cmd = Proc.new(&b)
      else
        fail ArgumentError, "lack of 'command' argument"
      end

      args = args.collect{|arg| '-' << arg.to_s}

      args << proc{|id, type|
        cmd.call(Tk::BLT::Tree::Node.id2obj(@tree, id),
                 ((type[0] == ?-)? type[1..-1]: type))
      }

      @path = @id = tk_call(@tpath, 'notify', 'create', *args)
    end

### Public Instance Methods

delete() click to toggle source

    # File lib/tkextlib/blt/tree.rb, line 453
    def delete()
      tk_call(@tpath, 'notify', 'delete', @id)
      NotifyID_TBL.mutex.synchronize{
        NotifyID_TBL[@tpath].delete(@id)
      }
      self
    end

id() click to toggle source

    # File lib/tkextlib/blt/tree.rb, line 449
    def id
      @id
    end

info() click to toggle source

    # File lib/tkextlib/blt/tree.rb, line 461
    def info()
      lst = simplelist(tk_call(@tpath, 'notify', 'info', id))
      lst[0] = Tk::BLT::Tree::Notify.id2obj(@tree, lst[0])
      lst[1] = simplelist(lst[1]).collect{|flag| flag[1..-1]}
      lst[2] = tk_tcl2ruby(lst[2])
      lst
    end