Class Tk::Tcllib::Plotchart::Ganttchart < Tk::Canvas

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1260
def initialize(*args)
  # args := ([parent,] time_begin, time_end, items [, text_width] [, keys])
  # time_begin := String of time format (e.g. "1 january 2004")
  # time_end   := String of time format (e.g. "1 january 2004")
  # args := Expected/maximum number of items
  #          ( This determines the vertical spacing. ),
  #         Expected/maximum width of items,
  #         Option Hash ( { key=>value, ... } )
  if args[0].kind_of?(String)
    @time_begin = args.shift
    @time_end   = args.shift
    @args  = args

    super(*args) # create canvas widget
  else
    parent = args.shift

    @time_begin = args.shift
    @time_end   = args.shift
    @args  = args

    if parent.kind_of?(Tk::Canvas)
      @path = parent.path
    else
      super(parent, *args) # create canvas widget
    end
  end

  @chart = _create_chart
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1329
def color_of_part(keyword, newcolor)
  tk_call(@chart, 'color', keyword, newcolor)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1315
def connect(from_task, to_task)
  from_task = array2tk_list(from_task) if from_task.kind_of?(Array)
  to_task   = array2tk_list(to_task)   if to_task.kind_of?(Array)

  tk_call(@chart, 'connect', from_task, to_task)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1334
def font_of_part(keyword, newfont)
  tk_call(@chart, 'font', keyword, newfont)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1343
def hscroll(scr)
  tk_call_without_enc(@chart, 'hscroll', scr)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1339
def hscroll=(scr)
  tk_call_without_enc(@chart, 'hscroll', scr)
  scr
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1305
def milestone(txt, time, col=None)
  tk_call(@chart, 'milestone', txt, time, col)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1323
def summary(txt, tasks)
  tasks = array2tk_list(tasks) if tasks.kind_of?(Array)
  tk_call(@chart, 'summary', tasks)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1298
def task(txt, time_begin, time_end, completed=0.0)
  list(tk_call(@chart, 'task', txt, time_begin, time_end,
               completed)).collect!{|id|
    TkcItem.id2obj(self, id)
  }
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1310
def vertline(txt, time)
  tk_call(@chart, 'vertline', txt, time)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1352
def vscroll(scr)
  tk_call_without_enc(@chart, 'vscroll', scr)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 1348
def vscroll=(scr)
  tk_call_without_enc(@chart, 'vscroll', scr)
  scr
end