package Ġme . ore . swing . ext . test . util Ċ Ċ import Ġme . ore . swing . ext . O re Swing Ext Ċ import Ġjavax . swing . UI Manager ĊĊ Ċ object ĠO re Swing Ext Test Ġ{ ĊĠĠĠ Ġ@ Suppress (" unused ") ĊĠĠĠ Ġenum Ġclass ĠL af Choice ( val ĠclassName : ĠString ) Ġ{ ĊĠĠĠĠĠĠĠ ĠM OT IF (" com . sun . java . swing . pl af . mot if . Mot if Look And Feel "), ĊĠĠĠĠĠĠĠ ĠMET AL (" javax . swing . pl af . metal . Metal Look And Feel "), ĊĠĠĠĠĠĠĠ ĠN IM BUS (" javax . swing . pl af . nim bus . Nim bus Look And Feel "), ĊĠĠĠĠĠĠĠ ĠSYSTEM ( UI Manager . getSystem Look And Feel ClassName ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġapply L af ( l af Choice : ĠL af Choice ) Ġ{ ĊĠĠĠĠĠĠĠ Ġtry Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠUI Manager . set Look And Feel ( l af Choice . className ) ĊĠĠĠĠĠĠĠ Ġ} Ġcatch Ġ( e : ĠException ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠO re Swing Ext . handle ( e ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ