;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtkaction.lisp,v 1.9 2006-04-26 12:32:04 espen Exp $
+;; $Id: gtkaction.lisp,v 1.10 2006-08-14 13:57:37 espen Exp $
(in-package "GTK")
;;; Toggle Action
-(defmethod initialize-instance ((action toggle-action) &rest initargs &key callback)
+(defmethod initialize-instance ((action toggle-action) &rest initargs &key callback active)
(remf initargs :callback)
(apply #'call-next-method action initargs)
(when callback
#'(lambda ()
(funcall function (toggle-action-active-p action))))
:object object :after after)))
- (when (toggle-action-active-p action)
+ (when active
(action-activate action)))
(defbinding toggle-action-toggled () nil
;; 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.48 2006-06-23 12:25:38 espen Exp $
+;; $Id: gtktypes.lisp,v 1.49 2006-08-14 13:57:37 espen Exp $
(in-package "GTK")
:allocation :virtual
:getter "gtk_toggle_action_get_active"
:setter "gtk_toggle_action_set_active"
- :initarg :active
+; :initarg :active
:accessor toggle-action-active-p
:type boolean)))