anchor.diff:  ;; 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 $
  +;; $Id: gtktypes.lisp,v 1.64 2008-05-06 00:09:03 espen Exp $
   
   (in-package "GTK")
   
  
positive.code:     (current-folder
       :allocation :virtual
       :setter "gtk_file_chooser_set_current_folder"
       :setter "gtk_file_chooser_get_current_folder"
       :accessor file-chooser-current-folder
       :initarg :current-folder
       :type string)
  
negative.code:     (current-folder-uri
       :allocation :virtual
       :setter "gtk_file_chooser_set_current_folder_uri"
       :getter "gtk_file_chooser_get_current_folder_uri"
       :accessor file-chooser-current-folder-uri
       :initarg :current-folder-uri
       :type string)))
  