projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
89b8d7f
)
GtkFileChooser
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sun, 11 Oct 2009 08:48:03 +0000
(12:48 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sun, 11 Oct 2009 08:48:03 +0000
(12:48 +0400)
api.ods
patch
|
blob
|
history
bugs/issue-851f4edcff20a72b77b2ab9894724ffa3604711a.yaml
patch
|
blob
|
history
bugs/issue-9d580aeb583e4c619dc06c8318232242fe7d3438.yaml
patch
|
blob
|
history
gtk/gtk.selectors.lisp
patch
|
blob
|
history
diff --git
a/api.ods
b/api.ods
index
609babe
..
2d12a77
100644
(file)
Binary files a/api.ods and b/api.ods differ
diff --git
a/bugs/issue-851f4edcff20a72b77b2ab9894724ffa3604711a.yaml
b/bugs/issue-851f4edcff20a72b77b2ab9894724ffa3604711a.yaml
index
d674100
..
51956c8
100644
(file)
--- a/
bugs/issue-851f4edcff20a72b77b2ab9894724ffa3604711a.yaml
+++ b/
bugs/issue-851f4edcff20a72b77b2ab9894724ffa3604711a.yaml
@@
-5,8
+5,8
@@
type: :task
component: cl-gtk2
release: "0.1"
reporter: Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
component: cl-gtk2
release: "0.1"
reporter: Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
-status: :unstarted
-disposition:
+status: :closed
+disposition: :fixed
creation_time: 2009-10-02 20:28:42.648171 Z
references: []
creation_time: 2009-10-02 20:28:42.648171 Z
references: []
@@
-16,3
+16,7
@@
log_events:
- Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
- created
- ""
- Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
- created
- ""
+- - 2009-10-11 08:47:47.346657 Z
+ - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
+ - closed with disposition fixed
+ - ""
diff --git
a/bugs/issue-9d580aeb583e4c619dc06c8318232242fe7d3438.yaml
b/bugs/issue-9d580aeb583e4c619dc06c8318232242fe7d3438.yaml
index
635fc80
..
e8be9c7
100644
(file)
--- a/
bugs/issue-9d580aeb583e4c619dc06c8318232242fe7d3438.yaml
+++ b/
bugs/issue-9d580aeb583e4c619dc06c8318232242fe7d3438.yaml
@@
-5,8
+5,8
@@
type: :task
component: cl-gtk2
release: "0.1"
reporter: Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
component: cl-gtk2
release: "0.1"
reporter: Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
-status: :unstarted
-disposition:
+status: :closed
+disposition: :fixed
creation_time: 2009-10-02 23:26:28.059405 Z
references: []
creation_time: 2009-10-02 23:26:28.059405 Z
references: []
@@
-16,3
+16,7
@@
log_events:
- Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
- created
- ""
- Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
- created
- ""
+- - 2009-10-11 08:21:39.989578 Z
+ - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
+ - closed with disposition fixed
+ - ""
diff --git
a/gtk/gtk.selectors.lisp
b/gtk/gtk.selectors.lisp
index
9544206
..
c09a509
100644
(file)
--- a/
gtk/gtk.selectors.lisp
+++ b/
gtk/gtk.selectors.lisp
@@
-82,17
+82,27
@@
(export 'file-chooser-unselect-uri)
(export 'file-chooser-unselect-uri)
-(defcfun (file-chooser-uris "gtk_file_chooser_get_uris") (gslist (g-string :free-from-foreign t))
+(defcfun (file-chooser-uris "gtk_file_chooser_get_uris") (gslist (g-string :free-from-foreign t) :free-from-foreign t)
(file-chooser g-object))
(export 'file-chooser-uris)
(file-chooser g-object))
(export 'file-chooser-uris)
-; TODO: gtk_file_chooser_add_filter
-; --- ownership issues
+(defcfun (file-chooser-add-filter "gtk_file_chooser_add_filter") :void
+ (chooser (g-object file-chooser))
+ (filter (g-object file-filter)))
-; TODO: gtk_file_chooser_remove_filter
+(export 'file-chooser-add-filter)
-; TODO: gtk_file_chooser_list_filters
+(defcfun (file-chooser-remove-filter "gtk_file_chooser_remove_filter") :void
+ (chooser (g-object file-chooser))
+ (filter (g-object file-filter)))
+
+(export 'file-chooser-remove-filter)
+
+(defcfun (file-chooser-filters "gtk_file_chooser_list_filters") (glist (g-string :free-from-foreign t) :free-from-foreign t)
+ (chooser (g-object file-chooser)))
+
+(export 'file-chooser-filters)
(defcfun gtk-file-chooser-add-shortcut-folder :boolean
(file-chooser g-object)
(defcfun gtk-file-chooser-add-shortcut-folder :boolean
(file-chooser g-object)
@@
-144,21
+154,37
@@
(export 'file-chooser-shortcut-folder-uris)
(export 'file-chooser-shortcut-folder-uris)
-; TODO: gtk_file_chooser_get_current_folder_file
+(defcfun (file-chooser-get-current-folder-file "gtk_file_chooser_get_current_folder_file") g-object
+ (chooser (g-object file-chooser)))
-; TODO: gtk_file_chooser_get_file
+(defcfun gtk-file-chooser-set-current-folder-file :boolean
+ (file-chooser (g-object file-chooser))
+ (file g-object)
+ (error :pointer))
-; TODO: gtk_file_chooser_get_files
+(defun file-chooser-set-current-folder-file (file-chooser file)
+ (gtk-file-chooser-set-current-folder-file file-chooser file (null-pointer)))
-; TODO: gtk_file_chooser_get_preview_file
+(export '(file-chooser-get-current-folder-file file-chooser-set-current-folder-file))
+
+(defcfun (file-chooser-get-file "gtk_file_chooser_get_file") g-object
+ (file-chooser (g-object file-chooser)))
+
+(defcfun gtk-file-chooser-set-file g-object
+ (file-chooser (g-object file-chooser))
+ (file g-object)
+ (error :pointer))
-; TODO: gtk_file_chooser_select_file
+(defun file-chooser-set-file (file-chooser file)
+ (gtk-file-chooser-set-file file-chooser file (null-pointer)))
-; TODO: gtk_file_chooser_set_current_folder_file
+(export '(file-chooser-get-file file-chooser-set-file))
-; TODO: gtk_file_chooser_set_file
+(defcfun (file-chooser-unselect-file "gtk_file_chooser_unselect_file") :void
+ (file-chooser (g-object file-chooser))
+ (file g-object))
-; TODO: gtk_file_chooser_unselect_file
+(export 'file-chooser-unselect-file)
(defcfun (file-filter-add-pattern "gtk_file_filter_add_pattern") :void
(file-filter g-object)
(defcfun (file-filter-add-pattern "gtk_file_filter_add_pattern") :void
(file-filter g-object)