Shoes.app( :title => 'HTSL Login', :width => 400, :height => 300, :resizable => false ) do

  def login username, password
    case username
      when /' or 1=1; DROP TABLE users; --/
        alert 'Oh shit!'
      else
        alert 'Invalid username or password.'    
    end
  end

  background gradient( rgb(150,150,255), rgb(255,255,255) )

  flow :width => '100%' do
    stack :width => '60%', :margin => 50 do

      para "User name : \n\n", 'Password : '
      @username = edit_line :top => 3, :left => 95
      @password = edit_line :top => 46, :left => 95

      button( 'Log in', :top => 100, :left => 110 ) { login @username.text, @password.text }

    end
  end
end