Class: ArcadiaAboutSplash

Inherits:

TkToplevel

• Object
• TkToplevel
• ArcadiaAboutSplash

Defined in:

lib/a-core.rb

Instance Attribute Summary

• #progress ⇒ Object readonly

  Returns the value of attribute progress.

Instance Method Summary

• #initialize ⇒ ArcadiaAboutSplash constructor

  A new instance of ArcadiaAboutSplash.

• #labelStep(_txt) ⇒ Object
• #last_step(_txt = nil) ⇒ Object
• #next_step(_txt = nil) ⇒ Object
• #on_arcadia_problem(_event) ⇒ Object
• #problem_str ⇒ Object
• #reset ⇒ Object
• #set_progress(_max = 10) ⇒ Object
• #set_sysinfo(_info) ⇒ Object

Constructor Details

#initialize ⇒ ArcadiaAboutSplash

Returns a new instance of ArcadiaAboutSplash.

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

def initialize
  #_bgcolor = '#B83333'
  _bgcolor = '#000000'
  super()
  relief 'groove'
  #relief 'flat'
  background  _bgcolor
  highlightbackground  _bgcolor
  highlightthickness  1
  borderwidth 2
  withdraw
  overrideredirect(true)
  # dim 60x86
  @llogo = TkLabel.new(self){
    image  Arcadia.image_res(A_LOGO_GIF)
    background  _bgcolor
    place('x'=> 20,'y' => 20)
  }


  #    @tkLabel1 = TkLabel.new(self){
  #      text 'Arcadia'
  #      background  _bgcolor
  #      foreground  '#ffffff'
  #      font Arcadia.conf('splash.title.font')
  #      justify  'left'
  #      place('width' => '190','x' => 110,'y' => 10,'height' => 25)
  #    }

  @tkLabel1 = TkLabel.new(self){
    image  Arcadia.image_res(ARCADIA_JAP_WHITE_GIF)
    background  _bgcolor
    justify  'left'
    place('x' => 90,'y' => 10)
  }

  @tkLabelRuby = TkLabel.new(self){
    image Arcadia.image_res(RUBY_DOCUMENT_GIF)
    background  _bgcolor
    place('x'=> 210,'y' => 12)
  }

  @tkLabel2 = TkLabel.new(self){
    text  'Arcadia Ide'
    background  _bgcolor
    foreground  '#ffffff'
    font Arcadia.instance['conf']['splash.subtitle.font']
    justify  'left'
    place('x' => 100,'y' => 40,'height' => 19)
  }
  @tkLabelVersion = TkLabel.new(self){
    text Arcadia.text('main.about.version', [$arcadia['applicationParams'].version])
    background  _bgcolor
    foreground  '#ffffff'
    font Arcadia.instance['conf']['splash.version.font']
    justify  'left'
    place('x' => 100,'y' => 65,'height' => 19)
  }
  @tkLabel21 = TkLabel.new(self){
    text  Arcadia.text("main.about.by", ['Antonio Galeone - 2004/2013'])
    background  _bgcolor
    foreground  '#ffffff'
    font Arcadia.instance['conf']['splash.credits.font']
    justify  'left'
    anchor 'w'
    place('width' => '220','x' => 100,'y' => 95,'height' => 25)
  }

  @tkLabelCredits = TkLabel.new(self){
    text  Arcadia.text("main.about.contributors", ['Roger D. Pack'])
    background  _bgcolor
    foreground  '#ffffff'
    font Arcadia.instance['conf']['splash.credits.font']
    justify  'left'
    anchor 'w'
    place('width' => '210','x' => 100,'y' => 115,'height' => 25)
  }

  @tkLabelStep = TkLabel.new(self){
    text  ''
    background  _bgcolor
    foreground  'yellow'
    font Arcadia.instance['conf']['splash.banner.font']
    justify  'left'
    anchor  'w'
    place('width'=>-5,'relwidth' => 1,'x' => 5,'y' => 160,'height' => 45)
  }
  @progress  = TkVariable.new
  reset
  _width = 380
  _height = 210
  #_width = 0;_height = 0
  _x = TkWinfo.screenwidth(self)/2 -  _width / 2
  _y = TkWinfo.screenheight(self)/2 -  _height / 2
  geometry = _width.to_s+'x'+_height.to_s+'+'+_x.to_s+'+'+_y.to_s
  Tk.tk_call('wm', 'geometry', self, geometry )
  #bind("ButtonPress-1", proc{self.destroy})
  bind("Double-Button-1", proc{self.destroy})
  info = TkApplication.sys_info
  set_sysinfo(info)
  Arcadia.attach_listener(self, ArcadiaProblemEvent)
end

Instance Attribute Details

#progress ⇒ Object (readonly)

Returns the value of attribute progress.

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

def progress
  @progress
end

Instance Method Details

#labelStep(_txt) ⇒ Object

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

def labelStep(_txt)
  @tkLabelStep.text = _txt
  Tk.update
end

#last_step(_txt = nil) ⇒ Object

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

def last_step(_txt = nil)
  @progress.numeric = @max
  labelStep(_txt) if _txt
  Arcadia.detach_listener(self, ArcadiaProblemEvent)
end

#next_step(_txt = nil) ⇒ Object

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

def next_step(_txt = nil)
  @progress.numeric += 1
  labelStep(_txt) if _txt
end

#on_arcadia_problem(_event) ⇒ Object

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

def on_arcadia_problem(_event)
  if !defined?(@problems_nums)
    @problems_nums=0
    #@problem_str = proc{@problems_nums > 1 ? "#{@problems_nums} problems found!" : "#{@problem_nums} problem found!"}
    @tkAlert = TkLabel.new(self){
      image Arcadia.image_res(ALERT_GIF)
      background  'black'
      place('x'=> 10,'y' => 150)
    }

    @tkLabelProblems = TkLabel.new(self){
      text  ''
      background  'black'
      foreground  'red'
      font Arcadia.instance['conf']['splash.problems.font']
      justify  'left'
      anchor 'w'
      place('width' => '210','x' => 28,'y' => 150,'height' => 25)
    }
  end
  @problems_nums=@problems_nums+1
  @tkLabelProblems.text=problem_str if @tkLabelProblems
end

#problem_str ⇒ Object

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

def problem_str
  @problems_nums > 1 ? "#{@problems_nums} problems found!" : "#{@problems_nums} problem found!"
end

#reset ⇒ Object

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

def reset
  @progress.value = -1
end

#set_progress(_max = 10) ⇒ Object

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

def set_progress(_max=10)
  @max = _max
  Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10,
    :background=>'#000000',
    :troughcolor=>'#000000',
    :foreground=>'#666666',
    :variable=>@progress,
    :borderwidth=>0,
    :relief=>'flat',
    :maximum=>_max).place('relwidth' => '1','y' => 144,'height' => 6)
end

#set_sysinfo(_info) ⇒ Object

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

def set_sysinfo(_info)
  @tkLabelStep.text(_info)
end