Class: ArcadiaProblemsShower

Inherits:

Object

• Object
• ArcadiaProblemsShower

Defined in:

lib/a-core.rb

Instance Method Summary

• #append_problem(e) ⇒ Object
• #button_text ⇒ Object
• #initialize(_arcadia) ⇒ ArcadiaProblemsShower constructor

  A new instance of ArcadiaProblemsShower.

• #initialize_gui ⇒ Object
• #new_sequence_value ⇒ Object
• #on_after_initialize(_event) ⇒ Object
• #on_arcadia_problem(_event) ⇒ Object
• #show_problems ⇒ Object

Constructor Details

#initialize(_arcadia) ⇒ ArcadiaProblemsShower

Returns a new instance of ArcadiaProblemsShower.

# File 'lib/a-core.rb', line 1954

def initialize(_arcadia)
  @arcadia = _arcadia
  @showed = false
  @initialized = false
  #@visible = false
  @problems = Array.new
  @seq = 0
  @dmc=0
  @rec=0
  Arcadia.attach_listener(self, ArcadiaProblemEvent)
  Arcadia.attach_listener(self, InitializeEvent)
end

Instance Method Details

#append_problem(e) ⇒ Object

# File 'lib/a-core.rb', line 2096

def append_problem(e)
  parent_node='root'
  case e.type
  when ArcadiaProblemEvent::DEPENDENCE_MISSING_TYPE
    parent_node='dependences_missing_node'
    text = Arcadia.text("main.ps.dependences_missing")
    if !@tree.exist?(parent_node)
      @tree.insert('end', 'root' ,parent_node, {
        'text' =>  text ,
        'helptext' => text,
        'drawcross'=>'auto',
        'deltax'=>-1,
        'image'=> Arcadia.image_res(BROKEN_GIF)
      }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
      )

    end
    @dmc+=1
    @tree.itemconfigure('dependences_missing_node','text'=>"#{text} (#{@dmc})" )
  when ArcadiaProblemEvent::RUNTIME_ERROR_TYPE
    parent_node='runtime_error_node'
    text = Arcadia.text("main.ps.runtime_errors")
    if !@tree.exist?(parent_node)
      @tree.insert('end', 'root' ,parent_node, {
        'text' =>  text ,
        'helptext' => text,
        'drawcross'=>'auto',
        'deltax'=>-1,
        'image'=> Arcadia.image_res(ERROR_GIF)
      }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
      )
    end
    @rec+=1
    @tree.itemconfigure('runtime_error_node','text'=>"#{text} (#{@rec})" )
  end
  title_node="node_#{new_sequence_value}"
  detail_node="detail_of_#{title_node}"

  @tree.insert('end', parent_node ,title_node, {
    'text' =>  e.title ,
    'helptext' => e.title,
    'drawcross'=>'auto',
    'deltax'=>-1,
    'image'=> Arcadia.image_res(ITEM_GIF)
  }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
  )
  if e.detail.kind_of?(Array)
    e.detail.each_with_index{|line,i|
      @tree.insert('end', title_node , "#{detail_node}_#{i}" , {
        'text' =>  line ,
        'helptext' => i.to_s,
        'drawcross'=>'auto',
        'deltax'=>-1,
        'image'=> Arcadia.image_res(ITEM_DETAIL_GIF)
      }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
      )

    }
  else
    @tree.insert('end', title_node , detail_node , {
      'text' =>  e.detail ,
      'helptext' => e.title,
      'drawcross'=>'auto',
      'deltax'=>-1,
      'image'=> Arcadia.image_res(ITEM_DETAIL_GIF)
    }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
    )
  end


end

#button_text ⇒ Object

# File 'lib/a-core.rb', line 2016

def button_text
  @problems.count > 1 ? Arcadia.text("main.ps.problems", [@problems.count]) : Arcadia.text("main.ps.problem", [@problems.count])
end

#initialize_gui ⇒ Object

# File 'lib/a-core.rb', line 2021

def initialize_gui
  # float_frame
  args = {'width'=>600, 'height'=>300, 'x'=>400, 'y'=>100}
  @ff = @arcadia.layout.add_float_frame(args).hide
  @ff.title(Arcadia.text("main.ps.title"))

  #tree
  @tree = BWidgetTreePatched.new(@ff.frame, Arcadia.style('treepanel')){
    showlines false
    deltay 22
    # opencmd do_open_folder_cmd
    # closecmd do_close_folder_cmd
    # selectcommand do_select_item
    # crosscloseimage  TkPhotoImage.new('dat' => PLUS_GIF)
    # crossopenimage  TkPhotoImage.new('dat' => MINUS_GIF)
  }
  @tree.extend(TkScrollableWidget).show(0,0)

  do_double_click = proc{
    _selected = @tree.selected
    _selected_text = @tree.itemcget(_selected, 'text')
    if _selected_text
      _file, _row, _other = _selected_text.split(':')
      if File.exist?(_file)
        begin
          r = _row.strip.to_i
          integer = true
        rescue Exception => e
          integer = false
        end
        if integer
          OpenBufferTransientEvent.new(self,'file'=>_file, 'row'=>r).go!
        end
      end
    end
  }
  @tree.textbind_append('Double-1',do_double_click)


  # call button
  command = proc{
    if @ff.visible?
      @ff.hide
      #@visible = false
    else
      @ff.show
      #@visible = true
    end
  }

  b_style = Arcadia.style('toolbarbutton')
  b_style["relief"]='groove'
  #    b_style["borderwidth"]=2
  b_style["highlightbackground"]='red'

  b_text = button_text

  @b_err = Tk::BWidget::Button.new(@arcadia['toolbar'].frame, b_style){
    image  Arcadia.image_res(ALERT_GIF)
    compound 'left'
    padx  2
    command command if command
    #width 100
    #height 20
    #helptext  _hint if _hint
    text b_text
  }.pack('side' =>'left','before'=>@arcadia['toolbar'].items.values[0].item_obj, :padx=>2, :pady=>0)

end

#new_sequence_value ⇒ Object

# File 'lib/a-core.rb', line 2092

def new_sequence_value
  @seq+=1
end

#on_after_initialize(_event) ⇒ Object

# File 'lib/a-core.rb', line 1979

def on_after_initialize(_event)
  @initialized = true
  if @problems.count > 0
    show_problems
    Thread.new do
      num_sleep = 0
      while TkWinfo.viewable(Arcadia.layout.root) == false && num_sleep < 20
        sleep(1)
        num_sleep += 1
      end
      @ff.show
    end
#      p TkWinfo.viewable(Arcadia.layout.root)
#      Tk.after(1000, proc{@ff.show; p TkWinfo.viewable(Arcadia.layout.root)})
    
  end
end

#on_arcadia_problem(_event) ⇒ Object

# File 'lib/a-core.rb', line 1967

def on_arcadia_problem(_event)
  @problems << _event
  if @initialized
    if !@showed
      show_problems
    else
      append_problem(_event)
      @b_err.configure('text'=> button_text)
    end
  end
end

#show_problems ⇒ Object

# File 'lib/a-core.rb', line 1997

def show_problems
  begin
    initialize_gui
    @problems.each{|e|
      append_problem(e)
    }
    if @tree.exist?('dependences_missing_node')
      @tree.open_tree('dependences_missing_node', true)
    end
    if @tree.exist?('runtime_error_node')
      @tree.open_tree('runtime_error_node', true)
    end
    @showed=true
  rescue RuntimeError => e
    Arcadia.detach_listener(self, ArcadiaProblemEvent)
    Arcadia.detach_listener(self, InitializeEvent)
  end
end