anchor.diff:     ((active
        :allocation :virtual
        :getter "gtk_toggle_tool_button_get_active"
  -     :setter "gtk_toggle_tool_button_get_active"
  +     :setter "gtk_toggle_tool_button_set_active"
        :accessor toggle-tool-button-active-p
        :initarg :active
        :type boolean)))
  
positive.code:     (current-folder-uri
       :allocation :virtual
       :setter "gtk_file_chooser_set_current_folder_uri"
       :setter "gtk_file_chooser_get_current_folder_uri"
       :accessor file-chooser-current-folder-uri
       :initarg :current-folder-uri
       :type string)))
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtktypes.lisp,v 1.64 2008-05-06 00:09:03 espen Exp $
  
  (in-package "GTK")
  
  