1. ----------------------------------------------------------------------- 
  2. --          GtkAda - Ada95 binding for the Gimp Toolkit              -- 
  3. --                                                                   -- 
  4. --                        Copyright (C) 2000                         -- 
  5. --        Emmanuel Briot, Joel Brobecker and Arnaud Charlet          -- 
  6. --                                                                   -- 
  7. -- This library is free software; you can redistribute it and/or     -- 
  8. -- modify it under the terms of the GNU General Public               -- 
  9. -- License as published by the Free Software Foundation; either      -- 
  10. -- version 2 of the License, or (at your option) any later version.  -- 
  11. --                                                                   -- 
  12. -- This library is distributed in the hope that it will be useful,   -- 
  13. -- but WITHOUT ANY WARRANTY; without even the implied warranty of    -- 
  14. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU -- 
  15. -- General Public License for more details.                          -- 
  16. --                                                                   -- 
  17. -- You should have received a copy of the GNU General Public         -- 
  18. -- License along with this library; if not, write to the             -- 
  19. -- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      -- 
  20. -- Boston, MA 02111-1307, USA.                                       -- 
  21. --                                                                   -- 
  22. -- -- -- -- -- -- -- -- -- -- -- --
  23. ----------------------------------------------------------------------- 
  24.  
  25. --  <description> 
  26. -- 
  27. --  This package provides a collection of "standard" pixmaps 
  28. -- 
  29. --  </description> 
  30.  
  31. with Interfaces.C.Strings; 
  32. with Gtkada.Types; 
  33.  
  34. package Gtkada.Pixmaps is 
  35.  
  36.    function "+" (Str : in String) return Gtkada.Types.Chars_Ptr 
  37.      renames Interfaces.C.Strings.New_String; 
  38.  
  39.    Warning_Xpm : Gtkada.Types.Chars_Ptr_Array := 
  40.    --  Provide a yellow exclamation point 
  41.      (+"32 32 7 1", 
  42.       --  colors 
  43.       +". c #000000", 
  44.       +"# c #808000", 
  45.       +"a c #000080", 
  46.       +"b c none g none m none s Background", 
  47.       +"c c #808080", 
  48.       +"d c #f8fc00", 
  49.       +"e c #f8fcf8", 
  50.       --  pixels 
  51.       +"bbbbbbbbbbbbb###bbbbbbbbbbbbbbbb", 
  52.       +"bbbbbbbbbbbb#ddb.bbbbbbbbbbbbbbb", 
  53.       +"bbbbbbbbbbb#ddddb.cbbbbbbbbbbbbb", 
  54.       +"bbbbbbbbbbb#ddddd.ccbbbbbbbbbbbb", 
  55.       +"bbbbbbbbbb#ddddddb.ccbbbbbbbbbbb", 
  56.       +"bbbbbbbbbb#ddddddd.ccbbbbbbbbbbb", 
  57.       +"bbbbbbbbb#ddddddddb.ccbbbbbbbbbb", 
  58.       +"bbbbbbbbb#ddddddddd.ccbbbbbbbbbb", 
  59.       +"bbbbbbbb#ddddddddddb.ccbbbbbbbbb", 
  60.       +"bbbbbbbb#dddb...bddd.ccbbbbbbbbb", 
  61.       +"bbbbbbb#dddd.....dddb.ccbbbbbbbb", 
  62.       +"bbbbbbb#dddd.....dddd.ccbbbbbbbb", 
  63.       +"bbbbbb#ddddd.....ddddb.ccbbbbbbb", 
  64.       +"bbbbbb#ddddd.....ddddd.ccbbbbbbb", 
  65.       +"bbbbb#dddddd.....dddddb.ccbbbbbb", 
  66.       +"bbbbb#dddddd#...#dddddd.ccbbbbbb", 
  67.       +"bbbb#dddddddb...bddddddb.ccbbbbb", 
  68.       +"bbbb#dddddddd...dddddddd.ccbbbbb", 
  69.       +"bbb#ddddddddd#.#ddddddddb.ccbbbb", 
  70.       +"bbb#dddddddddb.bddddddddd.ccbbbb", 
  71.       +"bb#ddddddddddd.ddddddddddb.ccbbb", 
  72.       +"bb#ddddddddddddddddddddddd.ccbbb", 
  73.       +"b#dddddddddddb..bdddddddddb.ccbb", 
  74.       +"b#ddddddddddd....dddddddddd.ccbb", 
  75.       +"#dddddddddddd....ddddddddddb.ccb", 
  76.       +"#ddddddddddddb..bddddddddddd.ccb", 
  77.       +"#ddddddddddddddddddddddddddd.ccc", 
  78.       +"#ddddddddddddddddddddddddddb.ccc", 
  79.       +"b#ddddddddddddddddddddddddb.cccc", 
  80.       +"bb#........................ccccc", 
  81.       +"bbbbcccccccccccccccccccccccccccb", 
  82.       +"bbbbbcccccccccccccccccccccccccbb"); 
  83.  
  84.    Error_Xpm : Gtkada.Types.Chars_Ptr_Array := 
  85.    --  Provide a red stop sign 
  86.      (+"32 32 7 1", 
  87.       --  colors 
  88.       +". c #000000", 
  89.       +"# c #800000", 
  90.       +"a c #000080", 
  91.       +"b c none g none m none s Background", 
  92.       +"c c #808080", 
  93.       +"d c #f80000", 
  94.       +"e c #f8fcf8", 
  95.       --  pixels 
  96.       +"bbbbbbbbbbb########bbbbbbbbbbbbb", 
  97.       +"bbbbbbbb###dddddddd###bbbbbbbbbb", 
  98.       +"bbbbbbb#dddddddddddddd#bbbbbbbbb", 
  99.       +"bbbbb##dddddddddddddddd##bbbbbbb", 
  100.       +"bbbb#dddddddddddddddddddd#bbbbbb", 
  101.       +"bbb#dddddddddddddddddddddd#bbbbb", 
  102.       +"bbb#dddddddddddddddddddddd#cbbbb", 
  103.       +"bb#ddddddeddddddddddedddddd#cbbb", 
  104.       +"b#ddddddeeeddddddddeeedddddd#bbb", 
  105.       +"b#dddddeeeeeddddddeeeeeddddd#cbb", 
  106.       +"b#ddddddeeeeeddddeeeeedddddd#ccb", 
  107.       +"#ddddddddeeeeeddeeeeedddddddd#cb", 
  108.       +"#dddddddddeeeeeeeeeeddddddddd#cb", 
  109.       +"#ddddddddddeeeeeeeedddddddddd#cc", 
  110.       +"#dddddddddddeeeeeeddddddddddd#cc", 
  111.       +"#dddddddddddeeeeeeddddddddddd#cc", 
  112.       +"#ddddddddddeeeeeeeedddddddddd#cc", 
  113.       +"#dddddddddeeeeeeeeeeddddddddd#cc", 
  114.       +"#ddddddddeeeeeddeeeeedddddddd#cc", 
  115.       +"b#ddddddeeeeeddddeeeeedddddd#ccc", 
  116.       +"b#dddddeeeeeddddddeeeeeddddd#ccc", 
  117.       +"b#ddddddeeeddddddddeeedddddd#ccb", 
  118.       +"bb#ddddddeddddddddddedddddd#cccb", 
  119.       +"bbb#dddddddddddddddddddddd#ccccb", 
  120.       +"bbb#dddddddddddddddddddddd#cccbb", 
  121.       +"bbbb#dddddddddddddddddddd#cccbbb", 
  122.       +"bbbbb##dddddddddddddddd##ccccbbb", 
  123.       +"bbbbbbc#dddddddddddddd#cccccbbbb", 
  124.       +"bbbbbbbc###dddddddd###cccccbbbbb", 
  125.       +"bbbbbbbbbcc########ccccccbbbbbbb", 
  126.       +"bbbbbbbbbbccccccccccccccbbbbbbbb", 
  127.       +"bbbbbbbbbbbbbccccccccbbbbbbbbbbb"); 
  128.  
  129.    Information_Xpm : Gtkada.Types.Chars_Ptr_Array := 
  130.    --  Provide a blue "i" sign 
  131.      (+"32 32 6 1", 
  132.       --  colors 
  133.       +". c #000000", 
  134.       +"# c #000080", 
  135.       +"a c none g none m none s Background", 
  136.       +"b c #808080", 
  137.       +"c c #0000f8", 
  138.       +"d c #f8fcf8", 
  139.       --  pixels 
  140.       +"aaaaaaaaaaabbbbbbbbaaaaaaaaaaaaa", 
  141.       +"aaaaaaaabbbaddddddabbbaaaaaaaaaa", 
  142.       +"aaaaaabbaddddddddddddabbaaaaaaaa", 
  143.       +"aaaaabaddddddddddddddddabaaaaaaa", 
  144.       +"aaaabdddddddaccccaddddddd.aaaaaa", 
  145.       +"aaabddddddddccccccdddddddd.aaaaa", 
  146.       +"aabdddddddddccccccddddddddd.aaaa", 
  147.       +"abadddddddddaccccaddddddddda.aaa", 
  148.       +"abdddddddddddddddddddddddddd.baa", 
  149.       +"badddddddddddddddddddddddddda.ba", 
  150.       +"bddddddddddcccccccddddddddddd.ba", 
  151.       +"bddddddddddddcccccddddddddddd.bb", 
  152.       +"bddddddddddddcccccddddddddddd.bb", 
  153.       +"bddddddddddddcccccddddddddddd.bb", 
  154.       +"bddddddddddddcccccddddddddddd.bb", 
  155.       +"badddddddddddcccccdddddddddda.bb", 
  156.       +"abdddddddddddcccccdddddddddd.bbb", 
  157.       +"abaddddddddddcccccddddddddda.bbb", 
  158.       +"aabddddddddcccccccccddddddd.bbba", 
  159.       +"aaa.dddddddddddddddddddddd.bbbba", 
  160.       +"aaaa.dddddddddddddddddddd.bbbbaa", 
  161.       +"aaaaa.adddddddddddddddda.bbbbaaa", 
  162.       +"aaaaaa..adddddddddddda..bbbbaaaa", 
  163.       +"aaaaaaab...adddddda...bbbbbaaaaa", 
  164.       +"aaaaaaaabbb...addd.bbbbbbbaaaaaa", 
  165.       +"aaaaaaaaaabbbb.ddd.bbbbbaaaaaaaa", 
  166.       +"aaaaaaaaaaaaab.ddd.bbaaaaaaaaaaa", 
  167.       +"aaaaaaaaaaaaaaa.dd.bbaaaaaaaaaaa", 
  168.       +"aaaaaaaaaaaaaaaa.d.bbaaaaaaaaaaa", 
  169.       +"aaaaaaaaaaaaaaaaa..bbaaaaaaaaaaa", 
  170.       +"aaaaaaaaaaaaaaaaaabbbaaaaaaaaaaa", 
  171.       +"aaaaaaaaaaaaaaaaaaabbaaaaaaaaaaa"); 
  172.  
  173.    Confirmation_Xpm : Gtkada.Types.Chars_Ptr_Array := 
  174.    --  Provide a blue question mark 
  175.      (+"32 32 6 1", 
  176.       --  colors 
  177.       +". c #000000", 
  178.       +"# c #000080", 
  179.       +"a c none g none m none s Background", 
  180.       +"b c #808080", 
  181.       +"c c #0000f8", 
  182.       +"d c #f8fcf8", 
  183.       --  pixels 
  184.       +"aaaaaaaaaaabbbbbbbbaaaaaaaaaaaaa", 
  185.       +"aaaaaaaabbbaddddddabbbaaaaaaaaaa", 
  186.       +"aaaaaabbaddddddddddddabbaaaaaaaa", 
  187.       +"aaaaabaddddddddddddddddabaaaaaaa", 
  188.       +"aaaabdddddddddddddddddddd.aaaaaa", 
  189.       +"aaabdddddddaccccccaddddddd.aaaaa", 
  190.       +"aabdddddddacaddccccaddddddd.aaaa", 
  191.       +"abadddddddccddddccccddddddda.aaa", 
  192.       +"abddddddddccccddccccdddddddd.baa", 
  193.       +"baddddddddccccdaccccdddddddda.ba", 
  194.       +"bdddddddddaccadccccdddddddddd.ba", 
  195.       +"bdddddddddddddacccddddddddddd.bb", 
  196.       +"bdddddddddddddcccdddddddddddd.bb", 
  197.       +"bdddddddddddddccadddddddddddd.bb", 
  198.       +"bdddddddddddddccddddddddddddd.bb", 
  199.       +"badddddddddddddddddddddddddda.bb", 
  200.       +"abdddddddddddaccaddddddddddd.bbb", 
  201.       +"abaddddddddddccccdddddddddda.bbb", 
  202.       +"aabddddddddddccccdddddddddd.bbba", 
  203.       +"aaa.dddddddddaccaddddddddd.bbbba", 
  204.       +"aaaa.dddddddddddddddddddd.bbbbaa", 
  205.       +"aaaaa.adddddddddddddddda.bbbbaaa", 
  206.       +"aaaaaa..adddddddddddda..bbbbaaaa", 
  207.       +"aaaaaaab...adddddda...bbbbbaaaaa", 
  208.       +"aaaaaaaabbb...addd.bbbbbbbaaaaaa", 
  209.       +"aaaaaaaaaabbbb.ddd.bbbbbaaaaaaaa", 
  210.       +"aaaaaaaaaaaaab.ddd.bbaaaaaaaaaaa", 
  211.       +"aaaaaaaaaaaaaaa.dd.bbaaaaaaaaaaa", 
  212.       +"aaaaaaaaaaaaaaaa.d.bbaaaaaaaaaaa", 
  213.       +"aaaaaaaaaaaaaaaaa..bbaaaaaaaaaaa", 
  214.       +"aaaaaaaaaaaaaaaaaabbbaaaaaaaaaaa", 
  215.       +"aaaaaaaaaaaaaaaaaaabbaaaaaaaaaaa"); 
  216.  
  217. end Gtkada.Pixmaps;