-- GENERATED by C->Haskell Compiler, version 0.13.4 (gtk2hs branch) "Bin IO", 13 Nov 2004 (Haskell)-- Edit the ORIGNAL .chs file instead!{-# LINE 1 "./Graphics/UI/Gtk/Display/AccelLabel.chs" #-}-- -*-haskell-*--- GIMP Toolkit (GTK) Widget AccelLabel---- Author : Axel Simon---- Created: 23 May 2001---- Copyright (C) 1999-2005 Axel Simon---- This library is free software; you can redistribute it and/or-- modify it under the terms of the GNU Lesser General Public-- License as published by the Free Software Foundation; either-- version 2.1 of the License, or (at your option) any later version.---- This library is distributed in the hope that it will be useful,-- but WITHOUT ANY WARRANTY; without even the implied warranty of-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU-- Lesser General Public License for more details.---- |-- Maintainer : gtk2hs-users@lists.sourceforge.net-- Stability : provisional-- Portability : portable (depends on GHC)---- A label which displays an accelerator key on the right of the text--moduleGraphics.UI.Gtk.Display.AccelLabel(-- * Detail-- -- | The 'AccelLabel' widget is a subclass of 'Label' that also displays an-- accelerator key on the right of the label text, e.g. \'Ctl+S\'. It is-- commonly used in menus to show the keyboard short-cuts for commands.---- The accelerator key to display is not set explicitly. Instead, the-- 'AccelLabel' displays the accelerators which have been added to a particular-- widget. This widget is set by calling 'accelLabelSetAccelWidget'.---- For example, a 'MenuItem' widget may have an accelerator added to emit-- the \"activate\" signal when the \'Ctl+S\' key combination is pressed. A-- 'AccelLabel' is created and added to the 'MenuItem', and-- 'accelLabelSetAccelWidget' is called with the 'MenuItem' as the second-- argument. The 'AccelLabel' will now display \'Ctl+S\' after its label.---- Note that creating a 'MenuItem' with -- 'Graphics.UI.Gtk.MenuComboToolbar.MenuItem.menuItemNewWithLabel' (or one of-- the similar functions for 'CheckMenuItem' and 'RadioMenuItem') automatically-- adds a 'AccelLabel' to the 'MenuItem' and calls 'accelLabelSetAccelWidget'-- to set it up for you.---- An 'AccelLabel' will only display accelerators which have-- 'Graphics.UI.Gtk.Abstract.Widget.AccelVisible'-- set (see 'Graphics.UI.Gtk.Abstract.Widget.AccelFlags').-- A 'AccelLabel' can display multiple accelerators and-- even signal names, though it is almost always used to display just one-- accelerator key.-- * Class Hierarchy-- |-- @-- | 'GObject'-- | +----'Object'-- | +----'Widget'-- | +----'Misc'-- | +----'Label'-- | +----AccelLabel-- @-- * TypesAccelLabel,AccelLabelClass,castToAccelLabel,gTypeAccelLabel,toAccelLabel,-- * ConstructorsaccelLabelNew,-- * MethodsaccelLabelSetAccelWidget,accelLabelGetAccelWidget,-- * AttributesaccelLabelAccelWidget,)whereimportControl.Monad(liftM)importSystem.Glib.FFIimportSystem.Glib.UTFStringimportSystem.Glib.AttributesimportGraphics.UI.Gtk.Abstract.Object(makeNewObject)importGraphics.UI.Gtk.Types{-# LINE 91 "./Graphics/UI/Gtk/Display/AccelLabel.chs" #-}{-# LINE 93 "./Graphics/UI/Gtk/Display/AccelLabel.chs" #-}---------------------- Constructors-- | Creates a new 'AccelLabel'.--accelLabelNew::String-- ^ @string@ - the label string.->IOAccelLabelaccelLabelNewstring=makeNewObjectmkAccelLabel$liftM(castPtr::PtrWidget->PtrAccelLabel)$withUTFStringstring$\stringPtr->gtk_accel_label_new{-# LINE 107 "./Graphics/UI/Gtk/Display/AccelLabel.chs" #-}stringPtr---------------------- Methods-- | Sets the widget to be monitored by this accelerator label.--accelLabelSetAccelWidget::(AccelLabelClassself,WidgetClassaccelWidget)=>self->accelWidget-- ^ @accelWidget@ - the widget to be monitored.->IO()accelLabelSetAccelWidgetselfaccelWidget=(\(AccelLabelarg1)(Widgetarg2)->withForeignPtrarg1$\argPtr1->withForeignPtrarg2$\argPtr2->gtk_accel_label_set_accel_widgetargPtr1argPtr2){-# LINE 119 "./Graphics/UI/Gtk/Display/AccelLabel.chs" #-}(toAccelLabelself)(toWidgetaccelWidget)-- | Fetches the widget monitored by this accelerator label. See-- 'accelLabelSetAccelWidget'.--accelLabelGetAccelWidget::AccelLabelClassself=>self->IO(MaybeWidget)-- ^ returns the object monitored by the accelerator-- label, or @Nothing@.accelLabelGetAccelWidgetself=maybeNull(makeNewObjectmkWidget)$(\(AccelLabelarg1)->withForeignPtrarg1$\argPtr1->gtk_accel_label_get_accel_widgetargPtr1){-# LINE 131 "./Graphics/UI/Gtk/Display/AccelLabel.chs" #-}(toAccelLabelself)---------------------- Attributes-- | The widget to be monitored for accelerator changes.--accelLabelAccelWidget::(AccelLabelClassself,WidgetClassaccelWidget)=>ReadWriteAttrself(MaybeWidget)accelWidgetaccelLabelAccelWidget=newAttraccelLabelGetAccelWidgetaccelLabelSetAccelWidgetforeignimportccallunsafe"gtk_accel_label_new"gtk_accel_label_new::((PtrCChar)->(IO(PtrWidget)))foreignimportccallsafe"gtk_accel_label_set_accel_widget"gtk_accel_label_set_accel_widget::((PtrAccelLabel)->((PtrWidget)->(IO())))foreignimportccallunsafe"gtk_accel_label_get_accel_widget"gtk_accel_label_get_accel_widget::((PtrAccelLabel)->(IO(PtrWidget)))