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 1539

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)
#    }

  @tkLabel1 = TkLabel.new(self){
    image  TkPhotoImage.new('format'=>'GIF','data' =>ARCADIA_JAP_GIF)
    background  _bgcolor
    justify  'left'
    place('x' => 90,'y' => 10)
  }

  @tkLabelRuby = TkLabel.new(self){
    image TkPhotoImage.new('data' =>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  '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  'by Antonio Galeone - 2004/2011'
    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  '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)
end

Instance Attribute Details

#progress ⇒ Object (readonly)

Returns the value of attribute progress.

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

def progress
  @progress
end

Instance Method Details

#labelStep(_txt) ⇒ Object

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

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

#last_step(_txt = nil) ⇒ Object

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

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

#next_step(_txt = nil) ⇒ Object

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

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

#reset ⇒ Object

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

def reset
  @progress.value = -1
end

#set_progress(_max = 10) ⇒ Object

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

def set_progress(_max=10)
  @max = _max
  Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10,
    :background=>'#000000',
    :troughcolor=>'#000000',
    :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 1641

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