package Ġexample Ċ Ċ import Ġjava . awt .* Ġ// Ġk tl int - disable Ġno - wildcard - imports Ċ import Ġjavax . swing .* Ġ// Ġk tl int - disable Ġno - wildcard - imports Ċ Ċ fun Ġmake UI (): ĠComponent Ġ{ ĊĠ ĠUI Manager . put (" Caret . width ", Ġ 2 ) ĊĠ Ġval Ġfield 1 Ġ= ĠJTextField (" Caret . width : Ġ 2 ") ĊĊĠ Ġval Ġfield 2 Ġ= ĠJTextField (" caret Width : Ġ 4 ") ĊĠ Ġfield 2 . put Client Property (" caret Width ", Ġ 4 ) ĊĊĠ Ġval Ġfield 3 Ġ= ĠJTextField (" caret AspectRatio : Ġ 0 . 4 ") ĊĠ Ġfield 3 . put Client Property (" caret AspectRatio ", Ġ. 4 f ) ĊĊĠ Ġval Ġcolor Ġ= ĠColor ( 0 x 6 4 _ FF _ 0 0 _ 0 0 , Ġtrue ) ĊĠ Ġval Ġfont Ġ= Ġfield 1 . font . derive Font ( 3 2 f ) ĊĠ Ġval Ġbox Ġ= ĠBox . create Vertical Box () ĊĠ ĠlistOf ( field 1 , Ġfield 2 , Ġfield 3 ). forEach Ġ{ ĊĠĠĠ Ġit . font Ġ= Ġfont ĊĠĠĠ Ġit . caret Color Ġ= Ġcolor ĊĠĠĠ Ġbox . add ( it ) ĊĠĠĠ Ġbox . add ( Box . create Vertical Str ut ( 1 0 )) ĊĠ Ġ} ĊĊĠ Ġreturn ĠJPanel ( Border Layout ()). also Ġ{ ĊĠĠĠ Ġit . border Ġ= ĠBorder Factory . create Empty Border ( 1 0 , Ġ 1 0 , Ġ 1 0 , Ġ 1 0 ) ĊĠĠĠ Ġit . add ( box , ĠBorderLayout . NORTH ) ĊĠĠĠ Ġit . preferred Size Ġ= ĠDimension ( 3 2 0 , Ġ 2 4 0 ) ĊĠ Ġ} Ċ } Ċ Ċ 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 ĊĠĠĠ Ġ} ĊĠ Ġ} Ċ } Ċ