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
• #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 1138

def initialize
  #_bgcolor = '#B83333'
  _bgcolor = '#000000'
  super()
  relief 'groove'
  #relief 'flat'
  background  _bgcolor
  highlightbackground  _bgcolor
  highlightthickness  1
  borderwidth 2
  withdraw 
  overrideredirect(true)
  
  @tkLabel3 = TkLabel.new(self){
    image  TkPhotoImage.new('format'=>'GIF','data' =>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)
  }
  @tkLabelRuby = TkLabel.new(self){
    image TkPhotoImage.new('data' =>RUBY_DOCUMENT_GIF)
    background  _bgcolor
    place('x'=> 150,'y' => 40)
  }
  @tkLabel2 = TkLabel.new(self){
    text  'Ruby ide'
    background  _bgcolor
    foreground  '#ffffff'
    font Arcadia.instance['conf']['splash.subtitle.font']
    justify  'left'
    place('width' => '90','x' => 170,'y' => 40,'height' => 19)
  }
  @tkLabelVersion = TkLabel.new(self){
    text  'version: '+$arcadia['applicationParams'].version
    background  _bgcolor
    foreground  '#ffffff'
    font Arcadia.instance['conf']['splash.version.font']
    justify  'left'
    place('width' => '120','x' => 150,'y' => 65,'height' => 19)
  }
  @tkLabel21 = TkLabel.new(self){
    text  'by Antonio Galeone - 2004/2009'
    background  _bgcolor
    foreground  '#ffffff'
    font Arcadia.instance['conf']['splash.credits.font']
    justify  'left'
    anchor 'w'
    place('width' => '210','x' => 100,'y' => 95,'height' => 25)
  }

  @tkLabelCredits = TkLabel.new(self){
    text  '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 = 240
  #_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)
end

Instance Attribute Details

#progress ⇒ Object (readonly)

Returns the value of attribute progress.

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

def progress
  @progress
end

Instance Method Details

#labelStep(_txt) ⇒ Object

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

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

#last_step(_txt = nil) ⇒ Object

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

def last_step(_txt = nil)
  @progress.numeric = @max
  labelStep(_txt) if _txt
end

#next_step(_txt = nil) ⇒ Object

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

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

#reset ⇒ Object

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

def reset
  @progress.value = -1
end

#set_progress(_max = 10) ⇒ Object

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

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

#set_sysinfo(_info) ⇒ Object

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

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