package Ġorg . apache . isis . client . k ro viz . ui . kv Ċ Ċ import Ġorg . apache . isis . client . k ro viz . to . Link Ċ import Ġorg . apache . isis . client . k ro viz . ui . Command Ċ import Ġorg . apache . isis . client . k ro viz . ui . Form Item Ċ import Ġpl . tre k soft . k vision . form . text . Password Ċ import Ġpl . tre k soft . k vision . form . text . Text Ċ Ċ class ĠLogin Prompt Ġ: ĠCommand Ġ{ ĊĊĠĠĠ Ġprivate Ġlateinit Ġvar Ġform : ĠRo Dialog ĊĊĠĠĠ Ġ// Default Ġvalues ĊĠĠĠ Ġprivate Ġvar Ġurl Ġ= Ġ" http :// localhost : 8 0 8 0 /" ĊĠĠĠ Ġprivate Ġvar Ġusername Ġ= Ġ" sv en " ĊĠĠĠ Ġprivate Ġvar Ġpassword Ġ= Ġ" pass " ĊĊĠĠĠ Ġfun Ġopen ( at : Ġorg . apache . isis . client . k ro viz . ui . Point ) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġform Items Ġ= Ġmutable ListOf < Form Item >() ĊĠĠĠĠĠĠĠ Ġform Items . add ( Form Item (" Url ", Ġ" Text ", Ġurl )) ĊĠĠĠĠĠĠĠ Ġform Items . add ( Form Item (" User ", Ġ" Text ", Ġusername )) ĊĠĠĠĠĠĠĠ Ġform Items . add ( Form Item (" Password ", Ġ" Password ", Ġpassword )) ĊĠĠĠĠĠĠĠ Ġform Ġ= ĠRo Dialog ( caption Ġ= Ġ" Connect ", Ġitems Ġ= Ġform Items , Ġcommand Ġ= Ġthis ) ĊĠĠĠĠĠĠĠ Ġform . open ( at ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġexecute () Ġ{ ĊĠĠĠĠĠĠĠ Ġextract User Input () ĊĠĠĠĠĠĠĠ ĠUi Manager . login ( url , Ġusername , Ġpassword ) ĊĠĠĠĠĠĠĠ Ġval Ġlink Ġ= ĠLink ( href Ġ= Ġurl Ġ+ Ġ" rest ful /") ĊĠĠĠĠĠĠĠ Ġinvoke ( link ) ĊĠĠĠĠĠĠĠ ĠUi Manager . close Dialog ( form ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprivate Ġfun Ġextract User Input () Ġ{ ĊĠĠĠĠĠĠĠ Ġ// TODO Ġfunction Ġhas Ġa Ġside Ġeffect , Ġie . Ġchanges Ġvariable Ġvalues ĊĠĠĠĠĠĠĠ Ġvar Ġkey : ĠString ? ĊĠĠĠĠĠĠĠ Ġval Ġform Panel Ġ= Ġform . form Panel ĊĠĠĠĠĠĠĠ Ġval Ġk ids Ġ= Ġform Panel !!. getChildren () ĊĠĠĠĠĠĠĠ Ġ// iterate Ġover ĠForm Items Ġ( 0 , 1 , 2 ) Ġbut Ġnot ĠButtons ( 3 , 4 ) ĊĠĠĠĠĠĠĠ Ġfor Ġ( i Ġin Ġk ids ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġwhen Ġ( i ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġis ĠText Ġ-> Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġkey Ġ= Ġi . label !! ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġif Ġ( key Ġ== Ġ" Url ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġurl Ġ= Ġi . getValue () !! ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġif Ġ( key Ġ== Ġ" User ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġusername Ġ= Ġi . getValue () !! ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġis ĠPassword Ġ-> Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġpassword Ġ= Ġi . getValue () !! ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ Ċ } Ċ