package Ġorg . z ool yt ic . plugin čĊč Ċ import Ġcom . intellij . openapi . ui . Input Validator č Ċ import Ġcom . intellij . openapi . ui . Messages č Ċ import Ġjava . awt . Border Layout č Ċ import Ġjava . awt . GridLayout č Ċ import Ġjavax . swing . Button Group č Ċ import Ġjavax . swing . JPanel č Ċ import Ġjavax . swing . J RadioButton čĊč Ċ class ĠCreate Node Dialog () Ġ: ĠMessages . Input Dialog ( čĊĠĠĠĠĠĠĠ Ġ" Enter Ġname Ġfor Ġnew Ġnode ", čĊĠĠĠĠĠĠĠ Ġ" New Ġnode ", čĊĠĠĠĠĠĠĠ ĠMessages . get Question Icon (), čĊĠĠĠĠĠĠĠ Ġnull , čĊĠĠĠĠĠĠĠ Ġobject : ĠInput Validator Ġ{ čĊĠĠĠĠĠĠĠĠĠĠĠ Ġoverride Ġfun Ġcheck Input ( input String : ĠString ?) Ġ= Ġtrue čĊĠĠĠĠĠĠĠĠĠĠĠ Ġoverride Ġfun Ġcan Close ( input String : ĠString ?) Ġ= Ġinput String Ġ!= Ġnull Ġ&& Ġinput String . isNotEmpty () čĊĠĠĠĠĠĠĠ Ġ}) Ġ{ čĊčĊĠĠĠ Ġprivate Ġlateinit Ġvar Ġrad ios : ĠArray < J RadioButton > čĊčĊĠĠĠ Ġoverride Ġfun Ġcreate Message Panel (): ĠJPanel Ġ{ čĊĠĠĠĠĠĠĠ Ġval Ġmessage Panel Ġ= ĠJPanel ( Border Layout ()) čĊĠĠĠĠĠĠĠ Ġif Ġ( my Message Ġ!= Ġnull ) Ġ{ čĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġtext Component Ġ= Ġcreate Text Component () čĊĠĠĠĠĠĠĠĠĠĠĠ Ġmessage Panel . add ( text Component , ĠBorderLayout . NORTH ) čĊĠĠĠĠĠĠĠ Ġ} čĊčĊĠĠĠĠĠĠĠ Ġmy Field Ġ= Ġcreate TextField Component () čĊĠĠĠĠĠĠĠ Ġmessage Panel . add ( create Scroll able Text Component (), ĠBorderLayout . CENTER ) čĊčĊĠĠĠĠĠĠĠ Ġval Ġradio Pane Ġ= ĠJPanel ( GridLayout ( 0 , Ġ 2 )) čĊĠĠĠĠĠĠĠ Ġrad ios Ġ= ĠarrayOf ( javax . swing . J RadioButton (" Persistent "), ĠJ RadioButton (" E ph imer al "), ĠJ RadioButton (" Persistent ĠSequential "), ĠJ RadioButton (" E ph imer al ĠSequential ")) čĊĠĠĠĠĠĠĠ Ġrad ios [ 0 ]. isSelected Ġ= Ġtrue čĊĠĠĠĠĠĠĠ Ġval Ġgroup Ġ= ĠButton Group () čĊĠĠĠĠĠĠĠ Ġrad ios . forEach Ġ{ čĊĠĠĠĠĠĠĠĠĠĠĠ Ġgroup . add ( it ) čĊĠĠĠĠĠĠĠĠĠĠĠ Ġradio Pane . add ( it ) čĊĠĠĠĠĠĠĠ Ġ} čĊĠĠĠĠĠĠĠ Ġmessage Panel . add ( radio Pane , ĠBorderLayout . SO UTH ) čĊčĊĠĠĠĠĠĠĠ Ġreturn Ġmessage Panel čĊĠĠĠ Ġ} čĊčĊĠĠĠ Ġfun Ġget Mode (): ĠInt ? Ġ{ čĊĠĠĠĠĠĠĠ Ġreturn Ġ( 0 .. rad ios . size ). as Sequence (). find { Ġrad ios [ it ]. isSelected Ġ} čĊĠĠĠ Ġ} č Ċ } čĊčĊ