anchor.diff:      (current-folder-uri
        :allocation :virtual
        :setter "gtk_file_chooser_set_current_folder_uri"
  -     :setter "gtk_file_chooser_get_current_folder_uri"
  +     :getter "gtk_file_chooser_get_current_folder_uri"
        :accessor file-chooser-current-folder-uri
        :initarg :current-folder-uri
        :type string)))
  
positive.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.63 2008-04-11 18:40:23 espen Exp $
  
  (in-package "GTK")
  
  
negative.code:     (current-folder
       :allocation :virtual
       :setter "gtk_file_chooser_set_current_folder"
       :getter "gtk_file_chooser_get_current_folder"
       :accessor file-chooser-current-folder
       :initarg :current-folder
       :type string)
  