-(defun %create-toggleable-button (class label callback state args)
- (let ((button (make-instance class :label label :active state :visible t)))
+(defun button-new (label &optional callback)
+ (let ((button (make-instance 'button :label label)))
+ (when callback
+ (signal-connect button 'clicked callback))
+ button))
+
+(defun label-new (label)
+ (make-instance 'label :label label))
+
+
+
+(defun %create-toggleable-button (class label callback initstate initargs)
+ (let ((button
+ (apply #'make-instance class :label label :active initstate :visible t
+ initargs)))