{-# LINE 1 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}
module Graphics.UI.Gtk.General.StockItems (
StockItem(StockItem),
StockId,
siStockId,
siLabel,
siModifier,
siKeyval,
siTransDom,
stockAddItem,
stockLookupItem,
stockListIds,
stockAbout,
stockAdd,
stockApply,
stockBold,
stockCancel,
{-# LINE 57 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockCapsLockWarning,
{-# LINE 59 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockCDROM,
stockClear,
stockClose,
stockColorPicker,
stockConvert,
stockConnect,
stockCopy,
stockCut,
stockDelete,
stockDialogAuthentication,
stockDialogError,
stockDialogInfo,
stockDialogQuestion,
stockDialogWarning,
stockDirectory,
{-# LINE 75 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDiscard,
{-# LINE 77 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDisconnect,
stockDnd,
stockDndMultiple,
stockEdit,
stockExecute,
stockFile,
stockFind,
stockFindAndRelpace,
stockFloppy,
stockFullscreen,
stockGotoBottom,
stockGotoFirst,
stockGotoLast,
stockGotoTop,
stockGoBack,
stockGoDown,
stockGoForward,
stockGoUp,
stockHarddisk,
stockHelp,
stockHome,
stockIndent,
stockIndex,
stockInfo,
stockItalic,
stockJumpTo,
stockJustifyCenter,
stockJustifyFill,
stockJustifyLeft,
stockJustifyRight,
stockLeaveFullscreen,
stockMediaForward,
stockMediaNext,
stockMediaPause,
stockMediaPlay,
stockMediaPrevious,
stockMediaRecord,
stockMediaRewind,
stockMediaStop,
stockMissingImage,
stockNetwork,
stockNew,
stockNo,
stockOk,
stockOpen,
{-# LINE 123 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockOrientationLandscape,
stockOrientationReverseLandscape,
stockOrientationPortrait,
stockOrientationReversePortrait,
{-# LINE 128 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 129 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPageSetup,
{-# LINE 131 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPaste,
stockPreferences,
stockPrint,
{-# LINE 135 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPrintError,
stockPrintPaused,
stockPrintReport,
stockPrintWarning,
{-# LINE 140 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPrintPreview,
stockProperties,
stockQuit,
stockRedo,
stockRefresh,
stockRemove,
stockRevertToSaved,
stockSave,
stockSaveAs,
{-# LINE 150 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSelectAll,
{-# LINE 152 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSelectColor,
stockSelectFont,
stockSortAscending,
stockSortDescending,
stockSpellCheck,
stockStop,
stockStrikethrough,
stockUndelete,
stockUnderline,
stockUndo,
stockUnindent,
stockYes,
stockZoom100,
stockZoomFit,
stockZoomIn,
stockZoomOut
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Flags
import System.Glib.GList (GSList, fromGSListRev)
import Graphics.UI.Gtk.Gdk.Events (Modifier)
import Graphics.UI.Gtk.Gdk.Keys (KeyVal)
type StockId = DefaultGlibString
data StockItem = StockItem {
StockItem -> StockId
siStockId :: StockId,
StockItem -> StockId
siLabel :: DefaultGlibString,
StockItem -> [Modifier]
siModifier:: [Modifier],
StockItem -> Word32
siKeyval :: KeyVal,
StockItem -> StockId
siTransDom:: DefaultGlibString }
instance Storable StockItem where
sizeOf :: StockItem -> Int
sizeOf StockItem
_ = Int
20
{-# LINE 208 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
alignment _ = alignment (undefined::CString)
peek :: Ptr StockItem -> IO StockItem
peek Ptr StockItem
siPtr = do
(CString
stockId :: CString) <- (\Ptr StockItem
hsc_ptr -> Ptr StockItem -> Int -> IO CString
forall b. Ptr b -> Int -> IO CString
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr StockItem
hsc_ptr Int
0) Ptr StockItem
siPtr
{-# LINE 211 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
(label :: CString) <- (\hsc_ptr -> peekByteOff hsc_ptr 4) siPtr
{-# LINE 212 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
(modifier :: Word32)
{-# LINE 213 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
<- (\hsc_ptr -> peekByteOff hsc_ptr 8) siPtr
{-# LINE 214 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
(keyval :: Word32)
{-# LINE 215 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
<- (\hsc_ptr -> peekByteOff hsc_ptr 12) siPtr
{-# LINE 216 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
(transDom :: CString) <- (\hsc_ptr -> peekByteOff hsc_ptr 16) siPtr
{-# LINE 217 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
return $ StockItem {
siStockId = unsafePerformIO $ peekUTFString' stockId,
siLabel = unsafePerformIO $ peekUTFString' label,
siModifier = toFlags (fromIntegral modifier),
siKeyval = keyval,
siTransDom = unsafePerformIO $ peekUTFString' transDom }
where
peekUTFString' :: CString -> IO DefaultGlibString
peekUTFString' :: CString -> IO StockId
peekUTFString' CString
strPtr | CString
strPtrCString -> CString -> Bool
forall a. Eq a => a -> a -> Bool
==CString
forall a. Ptr a
nullPtr = StockId -> IO StockId
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StockId
""
| Bool
otherwise = CString -> IO StockId
forall s. GlibString s => CString -> IO s
peekUTFString CString
strPtr
poke :: Ptr StockItem -> StockItem -> IO ()
poke Ptr StockItem
siPtr (StockItem {
siStockId :: StockItem -> StockId
siStockId = StockId
stockId,
siLabel :: StockItem -> StockId
siLabel = StockId
label,
siModifier :: StockItem -> [Modifier]
siModifier= [Modifier]
modifier,
siKeyval :: StockItem -> Word32
siKeyval = Word32
keyval,
siTransDom :: StockItem -> StockId
siTransDom= StockId
transDom }) = do
CString
stockIdPtr <- StockId -> IO CString
forall s. GlibString s => s -> IO CString
newUTFString StockId
stockId
(\Ptr StockItem
hsc_ptr -> Ptr StockItem -> Int -> CString -> IO ()
forall b. Ptr b -> Int -> CString -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr StockItem
hsc_ptr Int
0) Ptr StockItem
siPtr CString
stockIdPtr
{-# LINE 237 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
labelPtr <- newUTFString label
(\Ptr StockItem
hsc_ptr -> Ptr StockItem -> Int -> CString -> IO ()
forall b. Ptr b -> Int -> CString -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr StockItem
hsc_ptr Int
4) Ptr StockItem
siPtr CString
labelPtr
{-# LINE 239 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
(\hsc_ptr -> pokeByteOff hsc_ptr 8) siPtr
{-# LINE 240 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
((fromIntegral (fromFlags modifier))::Word32)
{-# LINE 241 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
(\hsc_ptr -> pokeByteOff hsc_ptr 12) siPtr ((fromIntegral keyval)::Word32)
{-# LINE 242 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
transDomPtr<- newUTFString transDom
(\Ptr StockItem
hsc_ptr -> Ptr StockItem -> Int -> CString -> IO ()
forall b. Ptr b -> Int -> CString -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr StockItem
hsc_ptr Int
16) Ptr StockItem
siPtr CString
transDomPtr
{-# LINE 244 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockAddItem :: [StockItem] -> IO ()
stockAddItem :: [StockItem] -> IO ()
stockAddItem [] = () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
stockAddItem [StockItem]
sis = let items :: Int
items = [StockItem] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [StockItem]
sis in do
Int -> (Ptr StockItem -> IO ()) -> IO ()
forall a b. Storable a => Int -> (Ptr a -> IO b) -> IO b
allocaArray Int
items ((Ptr StockItem -> IO ()) -> IO ())
-> (Ptr StockItem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr StockItem
aPtr -> do
Ptr StockItem -> [StockItem] -> IO ()
forall a. Storable a => Ptr a -> [a] -> IO ()
pokeArray Ptr StockItem
aPtr [StockItem]
sis
Ptr StockItem -> Word32 -> IO ()
stock_add Ptr StockItem
aPtr (Int -> Word32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
items)
stockLookupItem :: StockId -> IO (Maybe StockItem)
stockLookupItem :: StockId -> IO (Maybe StockItem)
stockLookupItem StockId
stockId =
(Ptr StockItem -> IO (Maybe StockItem)) -> IO (Maybe StockItem)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr StockItem -> IO (Maybe StockItem)) -> IO (Maybe StockItem))
-> (Ptr StockItem -> IO (Maybe StockItem)) -> IO (Maybe StockItem)
forall a b. (a -> b) -> a -> b
$ \Ptr StockItem
siPtr ->
StockId
-> (CString -> IO (Maybe StockItem)) -> IO (Maybe StockItem)
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
forall a. StockId -> (CString -> IO a) -> IO a
withUTFString StockId
stockId ((CString -> IO (Maybe StockItem)) -> IO (Maybe StockItem))
-> (CString -> IO (Maybe StockItem)) -> IO (Maybe StockItem)
forall a b. (a -> b) -> a -> b
$ \CString
strPtr -> do
Int32
res <- CString -> Ptr StockItem -> IO Int32
stock_lookup CString
strPtr Ptr StockItem
siPtr
if (Int32 -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int32
res) then (StockItem -> Maybe StockItem)
-> IO StockItem -> IO (Maybe StockItem)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM StockItem -> Maybe StockItem
forall a. a -> Maybe a
Just (IO StockItem -> IO (Maybe StockItem))
-> IO StockItem -> IO (Maybe StockItem)
forall a b. (a -> b) -> a -> b
$ Ptr StockItem -> IO StockItem
forall a. Storable a => Ptr a -> IO a
peek Ptr StockItem
siPtr else Maybe StockItem -> IO (Maybe StockItem)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe StockItem
forall a. Maybe a
Nothing
stockListIds :: IO [StockId]
stockListIds :: IO [StockId]
stockListIds = do
GSList
lPtr <- IO GSList
stock_list_ids
[CString]
sPtrs <- GSList -> IO [CString]
forall a. GSList -> IO [Ptr a]
fromGSListRev GSList
lPtr
[StockId]
res <- (CString -> IO StockId) -> [CString] -> IO [StockId]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM CString -> IO StockId
forall s. GlibString s => CString -> IO s
readUTFString [CString]
sPtrs
[StockId] -> IO [StockId]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [StockId]
res
foreign import ccall unsafe "gtk_stock_add"
stock_add :: Ptr StockItem -> Word32 -> IO ()
{-# LINE 285 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
foreign import ccall unsafe "gtk_stock_lookup"
stock_lookup :: CString -> Ptr StockItem -> IO Int32
{-# LINE 288 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
foreign import ccall unsafe "gtk_stock_list_ids"
stock_list_ids :: IO GSList
{-# LINE 293 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockAbout :: StockId
stockAbout :: StockId
stockAbout = StockId
"gtk-about"
{-# LINE 297 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 300 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockAdd :: StockId
stockAdd :: StockId
stockAdd = StockId
"gtk-add"
{-# LINE 304 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockApply :: StockId
stockApply :: StockId
stockApply = StockId
"gtk-apply"
{-# LINE 308 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockBold :: StockId
stockBold :: StockId
stockBold = StockId
"gtk-bold"
{-# LINE 312 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockCancel :: StockId
stockCancel :: StockId
stockCancel = StockId
"gtk-cancel"
{-# LINE 316 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 318 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockCapsLockWarning :: StockId
stockCapsLockWarning :: StockId
stockCapsLockWarning = StockId
"gtk-caps-lock-warning"
{-# LINE 321 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 322 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockCDROM :: StockId
stockCDROM :: StockId
stockCDROM = StockId
"gtk-cdrom"
{-# LINE 326 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockClear :: StockId
stockClear :: StockId
stockClear = StockId
"gtk-clear"
{-# LINE 330 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockClose :: StockId
stockClose :: StockId
stockClose = StockId
"gtk-close"
{-# LINE 334 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 335 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockColorPicker :: StockId
stockColorPicker :: StockId
stockColorPicker = StockId
"gtk-color-picker"
{-# LINE 339 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 342 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockConvert :: StockId
stockConvert :: StockId
stockConvert = StockId
"gtk-convert"
{-# LINE 346 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 347 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockConnect :: StockId
stockConnect :: StockId
stockConnect = StockId
"gtk-connect"
{-# LINE 351 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 354 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockCopy :: StockId
stockCopy :: StockId
stockCopy = StockId
"gtk-copy"
{-# LINE 358 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockCut :: StockId
stockCut :: StockId
stockCut = StockId
"gtk-cut"
{-# LINE 362 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDelete :: StockId
stockDelete :: StockId
stockDelete = StockId
"gtk-delete"
{-# LINE 366 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 368 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDialogAuthentication :: StockId
stockDialogAuthentication :: StockId
stockDialogAuthentication = StockId
"gtk-dialog-authentication"
{-# LINE 371 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 374 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDialogError :: StockId
stockDialogError :: StockId
stockDialogError = StockId
"gtk-dialog-error"
{-# LINE 378 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDialogInfo :: StockId
stockDialogInfo :: StockId
stockDialogInfo = StockId
"gtk-dialog-info"
{-# LINE 382 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDialogQuestion :: StockId
stockDialogQuestion :: StockId
stockDialogQuestion = StockId
"gtk-dialog-question"
{-# LINE 386 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDialogWarning :: StockId
stockDialogWarning :: StockId
stockDialogWarning = StockId
"gtk-dialog-warning"
{-# LINE 390 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 391 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDirectory :: StockId
stockDirectory :: StockId
stockDirectory = StockId
"gtk-directory"
{-# LINE 395 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 398 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 400 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDiscard :: StockId
stockDiscard :: StockId
stockDiscard = StockId
"gtk-discard"
{-# LINE 403 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 404 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 406 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDisconnect :: StockId
stockDisconnect :: StockId
stockDisconnect = StockId
"gtk-disconnect"
{-# LINE 410 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 413 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDnd :: StockId
stockDnd :: StockId
stockDnd = StockId
"gtk-dnd"
{-# LINE 417 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockDndMultiple :: StockId
stockDndMultiple :: StockId
stockDndMultiple = StockId
"gtk-dnd-multiple"
{-# LINE 421 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 422 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockEdit :: StockId
stockEdit :: StockId
stockEdit = StockId
"gtk-edit"
{-# LINE 426 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 429 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockExecute :: StockId
stockExecute :: StockId
stockExecute = StockId
"gtk-execute"
{-# LINE 433 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 434 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockFile :: StockId
stockFile :: StockId
stockFile = StockId
"gtk-file"
{-# LINE 438 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 441 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockFind :: StockId
stockFind :: StockId
stockFind = StockId
"gtk-find"
{-# LINE 445 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockFindAndRelpace :: StockId
stockFindAndRelpace :: StockId
stockFindAndRelpace = StockId
"gtk-find-and-replace"
{-# LINE 449 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockFloppy :: StockId
stockFloppy :: StockId
stockFloppy = StockId
"gtk-floppy"
{-# LINE 453 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 454 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockFullscreen :: StockId
stockFullscreen :: StockId
stockFullscreen = StockId
"gtk-fullscreen"
{-# LINE 458 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 461 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockGotoBottom :: StockId
stockGotoBottom :: StockId
stockGotoBottom = StockId
"gtk-goto-bottom"
{-# LINE 465 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockGotoFirst :: StockId
stockGotoFirst :: StockId
stockGotoFirst = StockId
"gtk-goto-first"
{-# LINE 470 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockGotoLast :: StockId
stockGotoLast :: StockId
stockGotoLast = StockId
"gtk-goto-last"
{-# LINE 475 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockGotoTop :: StockId
stockGotoTop :: StockId
stockGotoTop = StockId
"gtk-goto-top"
{-# LINE 479 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockGoBack :: StockId
stockGoBack :: StockId
stockGoBack = StockId
"gtk-go-back"
{-# LINE 484 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockGoDown :: StockId
stockGoDown :: StockId
stockGoDown = StockId
"gtk-go-down"
{-# LINE 488 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockGoForward :: StockId
stockGoForward :: StockId
stockGoForward = StockId
"gtk-go-forward"
{-# LINE 493 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockGoUp :: StockId
stockGoUp :: StockId
stockGoUp = StockId
"gtk-go-up"
{-# LINE 497 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 498 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockHarddisk :: StockId
stockHarddisk :: StockId
stockHarddisk = StockId
"gtk-harddisk"
{-# LINE 502 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 505 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockHelp :: StockId
stockHelp :: StockId
stockHelp = StockId
"gtk-help"
{-# LINE 509 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockHome :: StockId
stockHome :: StockId
stockHome = StockId
"gtk-home"
{-# LINE 513 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 514 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockIndent :: StockId
stockIndent :: StockId
stockIndent = StockId
"gtk-indent"
{-# LINE 519 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 522 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockIndex :: StockId
stockIndex :: StockId
stockIndex = StockId
"gtk-index"
{-# LINE 526 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 527 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockInfo :: StockId
stockInfo :: StockId
stockInfo = StockId
"gtk-info"
{-# LINE 531 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 534 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockItalic :: StockId
stockItalic :: StockId
stockItalic = StockId
"gtk-italic"
{-# LINE 538 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockJumpTo :: StockId
stockJumpTo :: StockId
stockJumpTo = StockId
"gtk-jump-to"
{-# LINE 543 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockJustifyCenter :: StockId
stockJustifyCenter :: StockId
stockJustifyCenter = StockId
"gtk-justify-center"
{-# LINE 547 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockJustifyFill :: StockId
stockJustifyFill :: StockId
stockJustifyFill = StockId
"gtk-justify-fill"
{-# LINE 551 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockJustifyLeft :: StockId
stockJustifyLeft :: StockId
stockJustifyLeft = StockId
"gtk-justify-left"
{-# LINE 555 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockJustifyRight :: StockId
stockJustifyRight :: StockId
stockJustifyRight = StockId
"gtk-justify-right"
{-# LINE 559 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockLeaveFullscreen :: StockId
stockLeaveFullscreen :: StockId
stockLeaveFullscreen = StockId
"gtk-leave-fullscreen"
{-# LINE 563 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMissingImage :: StockId
stockMissingImage :: StockId
stockMissingImage = StockId
"gtk-missing-image"
{-# LINE 567 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 568 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMediaForward :: StockId
stockMediaForward :: StockId
stockMediaForward = StockId
"gtk-media-forward"
{-# LINE 573 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMediaNext :: StockId
stockMediaNext :: StockId
stockMediaNext = StockId
"gtk-media-next"
{-# LINE 578 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMediaPause :: StockId
stockMediaPause :: StockId
stockMediaPause = StockId
"gtk-media-pause"
{-# LINE 582 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMediaPlay :: StockId
stockMediaPlay :: StockId
stockMediaPlay = StockId
"gtk-media-play"
{-# LINE 587 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMediaPrevious :: StockId
stockMediaPrevious :: StockId
stockMediaPrevious = StockId
"gtk-media-previous"
{-# LINE 592 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMediaRecord :: StockId
stockMediaRecord :: StockId
stockMediaRecord = StockId
"gtk-media-record"
{-# LINE 596 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMediaRewind :: StockId
stockMediaRewind :: StockId
stockMediaRewind = StockId
"gtk-media-rewind"
{-# LINE 601 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockMediaStop :: StockId
stockMediaStop :: StockId
stockMediaStop = StockId
"gtk-media-stop"
{-# LINE 605 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 615 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 616 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockNetwork :: StockId
stockNetwork :: StockId
stockNetwork = StockId
"gtk-network"
{-# LINE 620 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 623 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockNew :: StockId
stockNew :: StockId
stockNew = StockId
"gtk-new"
{-# LINE 627 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockNo :: StockId
stockNo :: StockId
stockNo = StockId
"gtk-no"
{-# LINE 631 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockOk :: StockId
stockOk :: StockId
stockOk = StockId
"gtk-ok"
{-# LINE 635 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockOpen :: StockId
stockOpen :: StockId
stockOpen = StockId
"gtk-open"
{-# LINE 639 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 640 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockOrientationLandscape :: StockId
stockOrientationLandscape :: StockId
stockOrientationLandscape = StockId
"gtk-orientation-landscape"
{-# LINE 644 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockOrientationReverseLandscape :: StockId
stockOrientationReverseLandscape :: StockId
stockOrientationReverseLandscape = StockId
"gtk-orientation-reverse-landscape"
{-# LINE 648 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockOrientationPortrait :: StockId
stockOrientationPortrait :: StockId
stockOrientationPortrait = StockId
"gtk-orientation-portrait"
{-# LINE 652 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockOrientationReversePortrait :: StockId
stockOrientationReversePortrait :: StockId
stockOrientationReversePortrait = StockId
"gtk-orientation-reverse-portrait"
{-# LINE 656 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 662 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 664 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPageSetup :: StockId
stockPageSetup :: StockId
stockPageSetup = StockId
"gtk-page-setup"
{-# LINE 667 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 668 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPaste :: StockId
stockPaste :: StockId
stockPaste = StockId
"gtk-paste"
{-# LINE 672 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPreferences :: StockId
stockPreferences :: StockId
stockPreferences = StockId
"gtk-preferences"
{-# LINE 676 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPrint :: StockId
stockPrint :: StockId
stockPrint = StockId
"gtk-print"
{-# LINE 680 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 682 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPrintError :: StockId
stockPrintError :: StockId
stockPrintError = StockId
"gtk-print-error"
{-# LINE 685 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPrintPaused :: StockId
stockPrintPaused :: StockId
stockPrintPaused = StockId
"gtk-print-paused"
{-# LINE 689 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPrintReport :: StockId
stockPrintReport :: StockId
stockPrintReport = StockId
"gtk-print-report"
{-# LINE 693 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPrintWarning :: StockId
stockPrintWarning :: StockId
stockPrintWarning = StockId
"gtk-print-warning"
{-# LINE 697 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 698 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockPrintPreview :: StockId
stockPrintPreview :: StockId
stockPrintPreview = StockId
"gtk-print-preview"
{-# LINE 702 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockProperties :: StockId
stockProperties :: StockId
stockProperties = StockId
"gtk-properties"
{-# LINE 706 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockQuit :: StockId
stockQuit :: StockId
stockQuit = StockId
"gtk-quit"
{-# LINE 710 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockRedo :: StockId
stockRedo :: StockId
stockRedo = StockId
"gtk-redo"
{-# LINE 715 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockRefresh :: StockId
stockRefresh :: StockId
stockRefresh = StockId
"gtk-refresh"
{-# LINE 719 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockRemove :: StockId
stockRemove :: StockId
stockRemove = StockId
"gtk-remove"
{-# LINE 723 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockRevertToSaved :: StockId
stockRevertToSaved :: StockId
stockRevertToSaved = StockId
"gtk-revert-to-saved"
{-# LINE 728 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSave :: StockId
stockSave :: StockId
stockSave = StockId
"gtk-save"
{-# LINE 732 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSaveAs :: StockId
stockSaveAs :: StockId
stockSaveAs = StockId
"gtk-save-as"
{-# LINE 736 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 737 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSelectAll :: StockId
stockSelectAll :: StockId
stockSelectAll = StockId
"gtk-select-all"
{-# LINE 741 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 744 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSelectColor :: StockId
stockSelectColor :: StockId
stockSelectColor = StockId
"gtk-select-color"
{-# LINE 748 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSelectFont :: StockId
stockSelectFont :: StockId
stockSelectFont = StockId
"gtk-select-font"
{-# LINE 752 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSortAscending :: StockId
stockSortAscending :: StockId
stockSortAscending = StockId
"gtk-sort-ascending"
{-# LINE 756 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSortDescending :: StockId
stockSortDescending :: StockId
stockSortDescending = StockId
"gtk-sort-descending"
{-# LINE 760 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockSpellCheck :: StockId
stockSpellCheck :: StockId
stockSpellCheck = StockId
"gtk-spell-check"
{-# LINE 764 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockStop :: StockId
stockStop :: StockId
stockStop = StockId
"gtk-stop"
{-# LINE 768 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockStrikethrough :: StockId
stockStrikethrough :: StockId
stockStrikethrough = StockId
"gtk-strikethrough"
{-# LINE 772 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockUndelete :: StockId
stockUndelete :: StockId
stockUndelete = StockId
"gtk-undelete"
{-# LINE 777 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockUnderline :: StockId
stockUnderline :: StockId
stockUnderline = StockId
"gtk-underline"
{-# LINE 781 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockUndo :: StockId
stockUndo :: StockId
stockUndo = StockId
"gtk-undo"
{-# LINE 786 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 787 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockUnindent :: StockId
stockUnindent :: StockId
stockUnindent = StockId
"gtk-unindent"
{-# LINE 792 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
{-# LINE 795 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockYes :: StockId
stockYes :: StockId
stockYes = StockId
"gtk-yes"
{-# LINE 799 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockZoom100 :: StockId
stockZoom100 :: StockId
stockZoom100 = StockId
"gtk-zoom-100"
{-# LINE 803 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockZoomFit :: StockId
stockZoomFit :: StockId
stockZoomFit = StockId
"gtk-zoom-fit"
{-# LINE 807 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockZoomIn :: StockId
stockZoomIn :: StockId
stockZoomIn = StockId
"gtk-zoom-in"
{-# LINE 811 "Graphics/UI/Gtk/General/StockItems.hsc" #-}
stockZoomOut :: StockId
stockZoomOut :: StockId
stockZoomOut = StockId
"gtk-zoom-out"
{-# LINE 815 "Graphics/UI/Gtk/General/StockItems.hsc" #-}