[ltk-user] patch to add ttk-state accessor

Adds an accessor for the ttk-states. example usage: (ttk-state widget :active) ; => nil retrieves the active state (setf (ttk-state widget :active) t) ;sets the active sets