@@ -27,7 +27,8 @@ (activate clicked enter leave pressed released) :kids (c-in nil) :on-clicked (callback (widget event data) - (trc "button clicked" widget) + (when *gtk-debug* + (trc "button clicked" widget)) (with-integrity (:change 'button-clicked-cb) (setf (clicked self) t)))) @@ -58,7 +59,8 @@ (toggled) :active (c-in nil) :on-toggled (callback (widget event data) - (trc "toggle-button toggled" widget) + (when *gtk-debug* + (trc "toggle-button toggled" widget)) (with-integrity (:change 'tggle-button-on-toggled-cb) (let ((state (gtk-toggle-button-get-active widget))) (setf (value self) state))))) cells-gtk/buttons.lisp 1103bd675d5a3538a26a43f539e9b5841b0328a6 Ramarren ramarren@gmail.com http://github.com/Ramarren/cells-gtk3/commit/8f393a57425569c6b3a0293eb6ad57c82942ad02 8f393a57425569c6b3a0293eb6ad57c82942ad02 2009-11-09T10:04:17-08:00 2009-11-09T10:04:17-08:00 Conditionalize some debug output. dc1af709c5309c798f2e201f4c2d0c73b71bbef1 Ramarren ramarren@gmail.com