/[gtk-cffi]/gtk-cffi/gtk/menu-item.lisp
ViewVC logotype

Contents of /gtk-cffi/gtk/menu-item.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sun Feb 12 17:29:42 2012 UTC (2 years, 2 months ago) by rklochkov
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +4 -4 lines
Changed from cffi to cffi-objects
Dropped GTK-STRING
1 ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
2 ;;;
3 ;;; menu-item.lisp --- GtkMenuItem
4 ;;;
5 ;;; Copyright (C) 2011, Roman Klochkov <kalimehtar@mail.ru>
6 ;;;
7
8 (in-package :gtk-cffi)
9
10 (defclass menu-item (bin)
11 ())
12
13 (defcfun gtk-menu-item-new :pointer)
14 (defcfun gtk-menu-item-new-with-label :pointer (label :string))
15 (defcfun gtk-menu-item-new-with-mnemonic :pointer (label :string))
16
17 (defmethod gconstructor ((menu-item menu-item)
18 &key label mnemonic &allow-other-keys)
19 (if label
20 (if mnemonic
21 (gtk-menu-item-new-with-mnemonic label)
22 (gtk-menu-item-new-with-label label))
23 (gtk-menu-bar-new)))
24
25 (defgtkslots menu-item
26 right-justified :boolean
27 label :string
28 use-underline :boolean
29 submenu pobject
30 accel-path :string
31 reserve-indicator :boolean)
32
33 (defgtkfun select :void menu-item)
34 (defgtkfun deselect :void menu-item)
35 (defgtkfun activate :void menu-item)
36 (defgtkfun toggle-size-request :void menu-item (requisition :pointer))
37 (defgtkfun toggle-size-allocate :void menu-item (allocation :int))
38
39 (init-slots menu-item nil)

  ViewVC Help
Powered by ViewVC 1.1.5