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 () Ġ= ĠJPanel ( Border Layout ()). also Ġ{ ĊĠ ĠEvent Queue . invoke Later Ġ{ ĊĠĠĠ Ġit . root Pane . j MenuBar Ġ= Ġcreate MenuBar () ĊĠ Ġ} ĊĠ Ġit . add ( J ScrollPane ( J TextArea ())) ĊĠ Ġit . preferred Size Ġ= ĠDimension ( 3 2 0 , Ġ 2 4 0 ) Ċ } Ċ Ċ fun Ġcreate MenuBar (): ĠJ MenuBar Ġ{ ĊĠ Ġprintln (" check Icon Offset : Ġ" Ġ+ ĠUI Manager . get (" CheckBox MenuItem . check Icon Offset ")) ĊĠ Ġprintln (" after Check Icon Gap : Ġ" Ġ+ ĠUI Manager . get (" CheckBox MenuItem . after Check Icon Gap ")) ĊĠ Ġprintln (" minimum Text Offset : Ġ" Ġ+ ĠUI Manager . get (" CheckBox MenuItem . minimum Text Offset ")) ĊĠ Ġprintln (" even Height : Ġ" Ġ+ ĠUI Manager . get (" CheckBox MenuItem . even Height ")) ĊĊĠ Ġ// ĠUI Manager . put (" MenuItem . check Icon Offset ", Ġ 2 0 ) ĊĠ Ġ// ĠUI Manager . put (" MenuItem . after Check Icon Gap ", Ġ 2 0 ) ĊĠ ĠUI Manager . put (" MenuItem . minimum Text Offset ", Ġ 2 0 Ġ+ Ġ 2 0 Ġ+ Ġ 3 1 Ġ- Ġ 9 ) ĊĊĠ ĠUI Manager . put (" CheckBox MenuItem . after Check Icon Gap ", Ġ 2 0 ) ĊĠ ĠUI Manager . put (" CheckBox MenuItem . check Icon Offset ", Ġ 2 0 ) ĊĠ Ġ// ĠUI Manager . put (" CheckBox MenuItem . minimum Text Offset ", Ġ 1 0 0 ) ĊĊĠ Ġval Ġmenu Bar Ġ= ĠJ MenuBar () ĊĠ Ġval Ġmenu Ġ= Ġmake Menu (" J Menu ") ĊĠ Ġmenu Bar . add ( menu ) ĊĊĠ Ġmenu . add ( make Menu (" J Menu Ġ 1 ")) ĊĠ Ġmenu . add ( make Menu (" J Menu Ġ 2 ")) ĊĊĠ Ġmenu Bar . add ( menu ) ĊĠ Ġmenu Bar . add ( make Menu (" J Menu Ġ 3 ")) ĊĠ Ġreturn Ġmenu Bar Ċ } Ċ Ċ fun Ġmake Menu ( title : ĠString ): ĠJ Menu Ġ{ ĊĠ Ġval Ġmenu Ġ= ĠJ Menu ( title ) ĊĠ Ġmenu . add ( J MenuItem (" J MenuItem Ġ 1 ")) ĊĠ Ġmenu . add ( J MenuItem (" J MenuItem Ġ 2 ")) ĊĠ Ġmenu . add ( J CheckBox MenuItem (" J CheckBox MenuItem Ġ 1 ")) ĊĠ Ġmenu . add ( J CheckBox MenuItem (" J CheckBox MenuItem Ġ 2 ")) ĊĊĠ Ġval Ġr mi 1 Ġ= ĠJ RadioButton MenuItem (" J RadioButton MenuItem Ġ 1 ") ĊĠ Ġval Ġr mi 2 Ġ= ĠJ RadioButton MenuItem (" J RadioButton MenuItem Ġ 2 ") ĊĠ Ġval Ġbg Ġ= ĠButton Group () ĊĠ Ġbg . add ( rmi 1 ) ĊĠ Ġbg . add ( rmi 2 ) ĊĠ Ġmenu . add ( rmi 1 ) ĊĠ Ġmenu . add ( rmi 2 ) ĊĠ Ġreturn Ġmenu Ċ } Ċ Ċ fun Ġmain () Ġ{ ĊĠ ĠEvent Queue . invoke Later Ġ{ ĊĠĠĠ Ġrun Catch ing Ġ{ ĊĠĠĠĠĠ ĠUI Manager . set Look And Feel ( UI Manager . getSystem Look And Feel ClassName ()) ĊĠĠĠĠĠ Ġ// ĠUI Manager . set Look And Feel (" javax . swing . pl af . nim bus . Nim bus Look And Feel ") ĊĠĠĠ Ġ}. 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 ĊĠĠĠ Ġ} ĊĠ Ġ} Ċ } Ċ