(defun builder-connect-signals-simple (builder handlers-list)
(flet ((connect-func (builder object signal-name handler-name connect-object flags)
(declare (ignore builder connect-object))
- (awhen (find handler-name handlers-list :key 'first :test 'string=)
- (g-signal-connect object signal-name (second it) :after (member :after flags)))))
+ (let ((handler (find handler-name handlers-list :key 'first :test 'string=)))
+ (when handler
+ (g-signal-connect object signal-name (second handler) :after (member :after flags))))))
(builder-connect-signals-full builder #'connect-func)))
(export 'builder-connect-signals-simple)
; TODO: gtk_builder_value_from_string_type
+(defmethod initialize-instance :after ((builder builder) &key from-file from-string)
+ (when from-file
+ (builder-add-from-file builder from-file))
+ (when from-string
+ (builder-add-from-string builder from-string)))