package Ġexample Ċ Ċ import Ġjava . awt .* Ġ// Ġk tl int - disable Ġno - wildcard - imports Ċ import Ġjava . awt . event . Focus Adapter Ċ import Ġjava . awt . event . Focus Event Ċ import Ġjavax . swing .* Ġ// Ġk tl int - disable Ġno - wildcard - imports Ċ import Ġjavax . swing . text . J Text Component Ċ Ċ fun Ġmake UI (): ĠComponent Ġ{ ĊĠ Ġval Ġfield Ġ= ĠJTextField (" 1 1 1 1 1 1 1 1 1 ") ĊĠ Ġval Ġfl Ġ= Ġobject Ġ: ĠFocus Adapter () Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġfocus G ained ( e : ĠFocus Event ) Ġ{ ĊĠĠĠĠĠ Ġ( e . component Ġas ? ĠJ Text Component )?. selectAll () ĊĠĠĠ Ġ} ĊĠ Ġ} ĊĠ Ġfield . add Focus Listener ( fl ) ĊĠ Ġval Ġp Ġ= ĠJPanel ( GridLayout ( 2 , Ġ 1 )) ĊĠ Ġp . add ( make Title d Panel (" focus G ained : Ġselect All ", Ġfield )) ĊĠ Ġp . add ( make Title d Panel (" default ", ĠJTextField (" 2 2 2 2 2 2 2 2 "))) ĊĠ Ġp . border Ġ= ĠBorder Factory . create Empty Border ( 1 0 , Ġ 5 , Ġ 1 0 , Ġ 5 ) ĊĠ Ġp . preferred Size Ġ= ĠDimension ( 3 2 0 , Ġ 2 4 0 ) ĊĠ Ġreturn Ġp Ċ } Ċ Ċ private Ġfun Ġmake Title d Panel ( title : ĠString , Ġcmp : ĠComponent ): ĠComponent Ġ{ ĊĠ Ġval Ġp Ġ= ĠJPanel ( Grid BagLayout ()) ĊĠ Ġp . border Ġ= ĠBorder Factory . create Title d Border ( title ) ĊĠ Ġval Ġc Ġ= ĠGridBagConstraints () ĊĠ Ġc . weight x Ġ= Ġ 1 . 0 ĊĠ Ġc . fill Ġ= ĠGridBagConstraints . HORIZONTAL ĊĠ Ġc . in sets Ġ= ĠIn sets ( 5 , Ġ 5 , Ġ 5 , Ġ 5 ) ĊĠ Ġp . add ( cmp , Ġc ) ĊĠ Ġreturn Ġp Ċ } Ċ Ċ fun Ġmain () Ġ{ ĊĠ ĠEvent Queue . invoke Later Ġ{ ĊĠĠĠ Ġrun Catch ing Ġ{ ĊĠĠĠĠĠ ĠUI Manager . set Look And Feel ( UI Manager . getSystem Look And Feel ClassName ()) ĊĠĠĠ Ġ}. on Failure Ġ{ ĊĠĠĠĠĠ Ġit . printStackTrace () ĊĠĠĠĠĠ ĠToolkit . getDefault Toolkit (). be ep () ĊĠĠĠ Ġ} ĊĠĠĠ ĠJ Frame (). apply Ġ{ ĊĠĠĠĠĠ Ġdefault Close Operation Ġ= ĠWindow Constants . EXIT _ ON _ CLOSE ĊĠĠĠĠĠ Ġcontent Pane . add ( make UI ()) ĊĠĠĠĠĠ Ġpack () ĊĠĠĠĠĠ Ġset Location Relative To ( null ) ĊĠĠĠĠĠ Ġis Visible Ġ= Ġtrue ĊĠĠĠ Ġ} ĊĠ Ġ} Ċ } Ċ