# testing additional resources

xtAppInitialize -class AppRes

xmPushButton .fred managed

.fred getAppResources { {no_file NoFile "no file" x} }
puts stdout "option1: $x"

. realizeWidget

. mainLoop
