document.write('require \'getoptlong\'
');
document.write('require \'tk\'
');
document.write('
');
document.write('class DummyFtpClient
');
document.write('
');
document.write(' def initialize
');
document.write('
');
document.write(' @host = nil
');
document.write(' @user = nil
');
document.write(' @password = nil
');
document.write('
');
document.write(' opts = GetoptLong.new(
');
document.write(' [ "--host", "-h", GetoptLong::OPTIONAL_ARGUMENT ],
');
document.write(' [ "--user", "-u", GetoptLong::OPTIONAL_ARGUMENT ],
');
document.write(' [ "--password", "-p", GetoptLong::OPTIONAL_ARGUMENT ]
');
document.write(' )
');
document.write(' opts.each { |opt,arg|
');
document.write(' case opt
');
document.write(' when \'--host\'
');
document.write(' @host = arg
');
document.write(' when \'--user\'
');
document.write(' @user = arg
');
document.write(' when \'--password\'
');
document.write(' @password = arg
');
document.write(' end
');
document.write(' }
');
document.write('
');
document.write(' if @host.nil? || @user.nil? || @password.nil?
');
document.write(' get_missed_arguments
');
document.write(' end
');
document.write(' end
');
document.write('
');
document.write(' def get_missed_arguments
');
document.write(' root = TkRoot.new(\'title\' => \'Connection parameters\')
');
document.write('
');
document.write(' hostVar = add_entry(root, \'Host:\', @host)
');
document.write(' userVar = add_entry(root, \'User:\', @user)
');
document.write(' passwordVar = add_entry(root, \'Password:\', @password)
');
document.write('
');
document.write(' onConnect = proc {
');
document.write(' @host = hostVar.value unless hostVar.nil?
');
document.write(' @user = userVar.value unless userVar.nil?
');
document.write(' @password = passwordVar.value unless passwordVar.nil?
');
document.write(' Tk.exit
');
document.write(' }
');
document.write('
');
document.write(' TkButton.new(root) {
');
document.write(' text \'Connect\'
');
document.write(' command onConnect
');
document.write(' }.pack(\'padx\' => 10, \'pady\' => 10)
');
document.write(' Tk.mainloop
');
document.write(' end
');
document.write('
');
document.write(' def add_entry(root, prompt, value)
');
document.write(' if value.nil?
');
document.write(' tkVar = TkVariable.new
');
document.write(' tkVar.value = value
');
document.write(' TkLabel.new(root) {
');
document.write(' text prompt
');
document.write(' pack { padx 5; pady 5 }
');
document.write(' }
');
document.write(' TkEntry.new(root, \'textvariable\' => tkVar) {
');
document.write(' pack { padx 5; pady 5 }
');
document.write(' }
');
document.write(' return tkVar
');
document.write(' else
');
document.write(' return nil
');
document.write(' end
');
document.write(' end
');
document.write('
');
document.write(' def connect
');
document.write(' puts "About to connect to #{@host} as #{@user}/#{@password}"
');
document.write(' end
');
document.write('
');
document.write('end
');
document.write('
');
document.write('client = DummyFtpClient.new
');
document.write('client.connect
');
document.write('
');