package Ġexample Ċ Ċ import Ġjava . awt .* Ġ// Ġk tl int - disable Ġno - wildcard - imports Ċ import Ġjavax . swing .* Ġ// Ġk tl int - disable Ġno - wildcard - imports Ċ import Ġjavax . swing . text . J Text Component Ċ import Ġjavax . swing . text . Style Constants Ċ import Ġjavax . swing . text . Style Context Ċ Ċ private Ġconst Ġval ĠD UMMY _ TEXT Ġ= Ġ" Qu artz Ġglyph Ġjob Ġv ex 'd Ġc wm Ġf inks ." Ċ Ċ fun Ġmake UI (): ĠComponent Ġ{ ĊĠ Ġval Ġlabel 1 Ġ= ĠJ Text Pane () ĊĠ Ġval Ġattr Ġ= Ġlabel 1 . getStyle ( Style Context . DEFAULT _ STYLE ) ĊĠ ĠStyle Constants . set Line Spacing ( attr , Ġ-. 2 f ) ĊĠ Ġlabel 1 . set Paragraph Attributes ( attr , Ġtrue ) ĊĠ Ġlabel 1 . text Ġ= Ġ" J Text Pane \ n $ D UMMY _ TEXT " ĊĊĠ Ġval Ġlabel 2 Ġ= ĠJ TextArea (" J TextArea \ n $ D UMMY _ TEXT ") ĊĊĠ Ġval Ġcl Ġ= ĠThread . currentThread (). context ClassLoader ĊĠ Ġval Ġicon Ġ= ĠImage Icon ( cl . getResource (" example / wi 0 1 2 4 - 3 2 . png ")) ĊĠ Ġval Ġlabel 3 Ġ= ĠJLabel ("< html > JLabel + html < br >$ D UMMY _ TEXT ") ĊĠ Ġlabel 3 . icon Ġ= Ġicon ĊĊĠ Ġreturn ĠJPanel ( GridLayout ( 3 , Ġ 1 )). also Ġ{ ĊĠĠĠ Ġit . add ( make Left Icon ( label 1 , Ġicon )) ĊĠĠĠ Ġit . add ( make Left Icon ( label 2 , Ġicon )) ĊĠĠĠ Ġit . add ( label 3 ) ĊĠĠĠ Ġit . border Ġ= ĠBorder Factory . create Empty Border ( 8 , Ġ 8 , Ġ 8 , Ġ 8 ) ĊĠĠĠ Ġit . preferred Size Ġ= ĠDimension ( 3 2 0 , Ġ 2 4 0 ) ĊĠ Ġ} Ċ } Ċ Ċ private Ġfun Ġmake Left Icon ( label : ĠJ Text Component , Ġicon : ĠImage Icon ): ĠBox Ġ{ ĊĠ Ġlabel . foreground Ġ= ĠUI Manager . getColor (" Label . foreground ") ĊĠ Ġlabel . is Opaque Ġ= Ġfalse ĊĠ Ġlabel . is Editable Ġ= Ġfalse ĊĠ Ġlabel . is Focus able Ġ= Ġfalse ĊĠ Ġlabel . maximum Size Ġ= Ġlabel . preferred Size ĊĠ Ġlabel . minimum Size Ġ= Ġlabel . preferred Size ĊĊĠ Ġval Ġl Ġ= ĠJLabel ( icon ) ĊĠ Ġl . cursor Ġ= ĠCursor . getDefault Cursor () ĊĊĠ Ġval Ġbox Ġ= ĠBox . create Horizontal Box () ĊĠ Ġbox . add ( l ) ĊĠ Ġbox . add ( Box . create Horizontal Str ut ( 2 )) ĊĠ Ġbox . add ( label ) ĊĠ Ġbox . add ( Box . create Horizontal Gl ue ()) ĊĠ Ġreturn Ġbox Ċ } Ċ Ċ 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 ĊĠĠĠ Ġ} ĊĠ Ġ} Ċ } Ċ