Class: TKXXS_CLASSES::AskMultiLineD

Inherits:

TkText

• Object
• TkText
• TKXXS_CLASSES::AskMultiLineD

Includes:

Tk::Tile

Defined in:

lib/tkxxs/tkxxs_classes.rb

Constant Summary

CONF =

nil

Instance Attribute Summary

• #dialog ⇒ Object

  in: “self.dialog.

Instance Method Summary

• #answer ⇒ Object

  initialize.

• #initialize(question = nil, help = nil, hash = nil) ⇒ AskMultiLineD constructor

  TODO: implement in TKXXS.

Constructor Details

#initialize(question = nil, help = nil, hash = nil) ⇒ AskMultiLineD

TODO: implement in TKXXS.

# File 'lib/tkxxs/tkxxs_classes.rb', line 297

def initialize( question=nil, help=nil, hash=nil )
  question, help, hash = TKXXS_CLASSES.args_1(question, help, hash)

  # Must always include:  :question, :help
  hash = {
    :question => "?",
    :help => nil,
    :title => "Please enter your answer..."
  }.merge(hash)
  
  # Necessary, because hash[:configSection]  is deleted later on
  # in args_2.
  CONF.section = hash[:configSection] if CONF && hash[:configSection]

  # help, hash, question, title = 
  #   TKXXS_CLASSES.args_2( help, hash, question, :title)
  help, hash, question, title = 
    TKXXS_CLASSES.args_2( help, hash, question, :title)
  
  teardownDone = false
  @ans = nil
  @goOn = goOn = TkVariable.new 
  # Because you cannot use instance-vars in procs. TODO: smarter way?

  Tk.update # Show any calling widget first to make it lower than @dialog 
  #----  Toplevel: @dialog
  # @dialog=Toplevel.new() {title('title')} 
  @dialog=Toplevel.new() {title(title)} 
  @dialog.geometry = CONF[:dialogGeom]  if CONF
  @dialog.raise
  @dialog.bind('Destroy') {
    unless teardownDone
      if CONF
        CONF[:dialogGeom] = @dialog.geometry
      end
      goOn.value = '1' # !
      teardownDone = true
    end
  }

  #----  Frame 
  @frame = Frame.new(@dialog) {padding "3 3 3 3"}.
    pack(:fill=>:both,:expand=>true)

  #----  Label 
  @lbl = Label.new(@frame, :text=>question){
    font $font if $font
    wraplength '5i'
    justify 'left'
  }
  @lbl.grid(:sticky=>'news')

  #---- self = TextW
  super(@frame, hash) 
  self.grid(:column=>0,:row=>1,:sticky=>'news')
  @tagSel = TkTextTagSel.new(self)
  bind('Control-Key-a') {
    # From:
    # "Using Control-a to select all text in a text widget : TCL",
    # http://objectmix.com/tcl/35276-using-control-select-all-text-text-widget.html
    @tagSel.add('0.0', :end)
    Kernel.raise TkCallbackBreak
  }
  ##/ bind('Key-Return') {
  ##/   ans_( self.get )
  ##/   self.dialog.destroy
  ##/   goOn.value = '1'
  ##/ }

  #----  Scrollbars
  sy = Scrollbar.new(@frame)
  sy.grid(:column=>1,:row=>1,:sticky=>'ns')
  self.yscrollbar(sy)
  
  sx = Scrollbar.new(@frame)
  sx.grid(:column=>0,:row=>2,:sticky=>'ew')
  self.xscrollbar(sx)
  
  #----  Button-Cancel 
  @btn = Button.new(@frame, :text=>"Cancel").
    grid(:row=>3,:column=>0,:sticky=>'w')
  @btn.command { 
    self.dialog.destroy 
  }
  
  #----  Button-OK 
  @btn2 = Button.new(@frame, :text=>"OK").
    grid(:row=>3,:column=>0,:sticky=>'e')
    ## grid(:row=>3,:column=>0,:sticky=>'e',:columnspan=>2)
  @btn2.command { 
    got = self.get('0.0', 'end -1c')
    ans_( got )
    self.dialog.destroy
    goOn.value = '1'
  }

  @frame.grid_columnconfigure(0, :weight=>1)
  @frame.grid_columnconfigure(1, :weight=>0)
  @frame.grid_rowconfigure([0,2,3], :weight=>0)
  @frame.grid_rowconfigure(1, :weight=>1)
  @lbl.bind('Configure'){ 
    @lbl.wraplength =  TkWinfo.width(@frame) - 40
  }

  #----  Balloonhelp
  BalloonHelp.new(self,:text => help) if help

  self.focus
  ##Tk.update
end

Instance Attribute Details

#dialog ⇒ Object

in: “self.dialog

# File 'lib/tkxxs/tkxxs_classes.rb', line 293

def dialog
  @dialog
end

Instance Method Details

#answer ⇒ Object

initialize

# File 'lib/tkxxs/tkxxs_classes.rb', line 408

def answer(  )
  @dialog.raise
  @goOn.wait
  @ans
end