From db85b082ab89c5dcc5debd7b706548ab8e3ea623 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Tue, 28 Feb 2006 16:29:45 +0000 Subject: [PATCH] Defgenerics added to get rid of a few style-warnings Organization: Straylight/Edgeware From: espen --- gtk/gtk.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index 9825d62..0d0c8f5 100644 --- a/gtk/gtk.lisp +++ b/gtk/gtk.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtk.lisp,v 1.58 2006-02-27 12:26:47 espen Exp $ +;; $Id: gtk.lisp,v 1.59 2006-02-28 16:29:45 espen Exp $ (in-package "GTK") @@ -73,6 +73,14 @@ (defun clg-init (&optional display) (setq *max-event-to-sec* 0) (setq *max-event-to-usec* 1000)))) +;;; Generic functions + +(defgeneric add-to-radio-group (item1 item2)) +(defgeneric activate-radio-widget (item)) +(defgeneric (setf tool-item-tip-text) (tip-text tool-item)) +(defgeneric (setf tool-item-tip-private) (tip-private tool-item)) + + ;;; Misc -- [mdw]