;; 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.62 2008-01-10 22:11:15 espen Exp $
+;; $Id: gtktypes.lisp,v 1.65 2008-10-27 18:42:01 espen Exp $
(in-package "GTK")
("GtkTreePath" :ignore t)
; ("GtkStyle" :ignore t)
+ ("GtkMountOperation" :ignore t) ; Needs GIO
+
;; Manual override
("GtkWidget"
:slots
((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)))
(current-folder
:allocation :virtual
:setter "gtk_file_chooser_set_current_folder"
- :setter "gtk_file_chooser_get_current_folder"
+ :getter "gtk_file_chooser_get_current_folder"
:accessor file-chooser-current-folder
:initarg :current-folder
:type string)
(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)))
:allocation :virtual
:getter "gtk_tree_view_get_columns"
:reader tree-view-columns
- :type (glist tree-view-column))
+ :type (glist (copy-of tree-view-column)))
(selection
:allocation :virtual
:getter "gtk_tree_view_get_selection"
(markup-column
:allocation :virtual
:getter %icon-view-get-markup-column
- :setter %icon-view-set-tmarkup-column
+ :setter %icon-view-set-markup-column
:boundp %icon-view-markup-column-boundp
:initarg :markup-column
:accessor icon-view-markup-column)