- TkagRelief =
EnumType.new('flat','groove','raised','ridge','sunken')
- TkagJustify =
EnumType.new('left','center','right')
- TkagOrient =
EnumType.new('vertical','horizontal')
- TkagAnchor =
EnumType.new('n', 'ne', 'e','se', 's', 'sw', 'w', 'nw','center')
- TkagBool =
EnumType.new(true,false)
- TkagState =
EnumType.new('normal', 'active', 'disabled')
- TkagFile =
ProcType.new(proc{value = Tk.getOpenFile})
- TkagCompound =
EnumType.new('none' ,'bottom', 'center', 'left', 'none', 'right', 'top')
- TkagColor =
ProcType.new(proc{value = Tk.chooseColor})
- TkagFont =
ProcType.new(proc{value = $arcadia['action.get.font'].call})
- TkagCursor =
EnumType.new('X_cursor', 'hand2','left_ptr')