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. -- As a special exception, if other files instantiate generics from  -- 
  23. -- this unit, or you link this unit with other files to produce an   -- 
  24. -- executable, this  unit  does not  by itself cause  the resulting  -- 
  25. -- executable to be covered by the GNU General Public License. This  -- 
  26. -- exception does not however invalidate any other reasons why the   -- 
  27. -- executable file  might be covered by the  GNU Public License.     -- 
  28. ----------------------------------------------------------------------- 
  29.  
  30. --  <description> 
  31. -- 
  32. --  This package provides a collection of "standard" pixmaps 
  33. -- 
  34. --  </description> 
  35.  
  36. with Interfaces.C.Strings; 
  37. with Gtkada.Types; 
  38.  
  39. package Gtkada.Pixmaps is 
  40.  
  41.    function "+" (Str : in String) return Gtkada.Types.Chars_Ptr 
  42.      renames Interfaces.C.Strings.New_String; 
  43.  
  44.    Warning_Xpm : Gtkada.Types.Chars_Ptr_Array := 
  45.    --  Provide a yellow exclamation point 
  46.      (+"32 32 7 1", 
  47.       --  colors 
  48.       +". c #000000", 
  49.       +"# c #808000", 
  50.       +"a c #000080", 
  51.       +"b c none g none m none s Background", 
  52.       +"c c #808080", 
  53.       +"d c #f8fc00", 
  54.       +"e c #f8fcf8", 
  55.       --  pixels 
  56.       +"bbbbbbbbbbbbb###bbbbbbbbbbbbbbbb", 
  57.       +"bbbbbbbbbbbb#ddb.bbbbbbbbbbbbbbb", 
  58.       +"bbbbbbbbbbb#ddddb.cbbbbbbbbbbbbb", 
  59.       +"bbbbbbbbbbb#ddddd.ccbbbbbbbbbbbb", 
  60.       +"bbbbbbbbbb#ddddddb.ccbbbbbbbbbbb", 
  61.       +"bbbbbbbbbb#ddddddd.ccbbbbbbbbbbb", 
  62.       +"bbbbbbbbb#ddddddddb.ccbbbbbbbbbb", 
  63.       +"bbbbbbbbb#ddddddddd.ccbbbbbbbbbb", 
  64.       +"bbbbbbbb#ddddddddddb.ccbbbbbbbbb", 
  65.       +"bbbbbbbb#dddb...bddd.ccbbbbbbbbb", 
  66.       +"bbbbbbb#dddd.....dddb.ccbbbbbbbb", 
  67.       +"bbbbbbb#dddd.....dddd.ccbbbbbbbb", 
  68.       +"bbbbbb#ddddd.....ddddb.ccbbbbbbb", 
  69.       +"bbbbbb#ddddd.....ddddd.ccbbbbbbb", 
  70.       +"bbbbb#dddddd.....dddddb.ccbbbbbb", 
  71.       +"bbbbb#dddddd#...#dddddd.ccbbbbbb", 
  72.       +"bbbb#dddddddb...bddddddb.ccbbbbb", 
  73.       +"bbbb#dddddddd...dddddddd.ccbbbbb", 
  74.       +"bbb#ddddddddd#.#ddddddddb.ccbbbb", 
  75.       +"bbb#dddddddddb.bddddddddd.ccbbbb", 
  76.       +"bb#ddddddddddd.ddddddddddb.ccbbb", 
  77.       +"bb#ddddddddddddddddddddddd.ccbbb", 
  78.       +"b#dddddddddddb..bdddddddddb.ccbb", 
  79.       +"b#ddddddddddd....dddddddddd.ccbb", 
  80.       +"#dddddddddddd....ddddddddddb.ccb", 
  81.       +"#ddddddddddddb..bddddddddddd.ccb", 
  82.       +"#ddddddddddddddddddddddddddd.ccc", 
  83.       +"#ddddddddddddddddddddddddddb.ccc", 
  84.       +"b#ddddddddddddddddddddddddb.cccc", 
  85.       +"bb#........................ccccc", 
  86.       +"bbbbcccccccccccccccccccccccccccb", 
  87.       +"bbbbbcccccccccccccccccccccccccbb"); 
  88.  
  89.    Error_Xpm : Gtkada.Types.Chars_Ptr_Array := 
  90.    --  Provide a red stop sign 
  91.      (+"32 32 7 1", 
  92.       --  colors 
  93.       +". c #000000", 
  94.       +"# c #800000", 
  95.       +"a c #000080", 
  96.       +"b c none g none m none s Background", 
  97.       +"c c #808080", 
  98.       +"d c #f80000", 
  99.       +"e c #f8fcf8", 
  100.       --  pixels 
  101.       +"bbbbbbbbbbb########bbbbbbbbbbbbb", 
  102.       +"bbbbbbbb###dddddddd###bbbbbbbbbb", 
  103.       +"bbbbbbb#dddddddddddddd#bbbbbbbbb", 
  104.       +"bbbbb##dddddddddddddddd##bbbbbbb", 
  105.       +"bbbb#dddddddddddddddddddd#bbbbbb", 
  106.       +"bbb#dddddddddddddddddddddd#bbbbb", 
  107.       +"bbb#dddddddddddddddddddddd#cbbbb", 
  108.       +"bb#ddddddeddddddddddedddddd#cbbb", 
  109.       +"b#ddddddeeeddddddddeeedddddd#bbb", 
  110.       +"b#dddddeeeeeddddddeeeeeddddd#cbb", 
  111.       +"b#ddddddeeeeeddddeeeeedddddd#ccb", 
  112.       +"#ddddddddeeeeeddeeeeedddddddd#cb", 
  113.       +"#dddddddddeeeeeeeeeeddddddddd#cb", 
  114.       +"#ddddddddddeeeeeeeedddddddddd#cc", 
  115.       +"#dddddddddddeeeeeeddddddddddd#cc", 
  116.       +"#dddddddddddeeeeeeddddddddddd#cc", 
  117.       +"#ddddddddddeeeeeeeedddddddddd#cc", 
  118.       +"#dddddddddeeeeeeeeeeddddddddd#cc", 
  119.       +"#ddddddddeeeeeddeeeeedddddddd#cc", 
  120.       +"b#ddddddeeeeeddddeeeeedddddd#ccc", 
  121.       +"b#dddddeeeeeddddddeeeeeddddd#ccc", 
  122.       +"b#ddddddeeeddddddddeeedddddd#ccb", 
  123.       +"bb#ddddddeddddddddddedddddd#cccb", 
  124.       +"bbb#dddddddddddddddddddddd#ccccb", 
  125.       +"bbb#dddddddddddddddddddddd#cccbb", 
  126.       +"bbbb#dddddddddddddddddddd#cccbbb", 
  127.       +"bbbbb##dddddddddddddddd##ccccbbb", 
  128.       +"bbbbbbc#dddddddddddddd#cccccbbbb", 
  129.       +"bbbbbbbc###dddddddd###cccccbbbbb", 
  130.       +"bbbbbbbbbcc########ccccccbbbbbbb", 
  131.       +"bbbbbbbbbbccccccccccccccbbbbbbbb", 
  132.       +"bbbbbbbbbbbbbccccccccbbbbbbbbbbb"); 
  133.  
  134.    Information_Xpm : Gtkada.Types.Chars_Ptr_Array := 
  135.    --  Provide a blue "i" sign 
  136.      (+"32 32 6 1", 
  137.       --  colors 
  138.       +". c #000000", 
  139.       +"# c #000080", 
  140.       +"a c none g none m none s Background", 
  141.       +"b c #808080", 
  142.       +"c c #0000f8", 
  143.       +"d c #f8fcf8", 
  144.       --  pixels 
  145.       +"aaaaaaaaaaabbbbbbbbaaaaaaaaaaaaa", 
  146.       +"aaaaaaaabbbaddddddabbbaaaaaaaaaa", 
  147.       +"aaaaaabbaddddddddddddabbaaaaaaaa", 
  148.       +"aaaaabaddddddddddddddddabaaaaaaa", 
  149.       +"aaaabdddddddaccccaddddddd.aaaaaa", 
  150.       +"aaabddddddddccccccdddddddd.aaaaa", 
  151.       +"aabdddddddddccccccddddddddd.aaaa", 
  152.       +"abadddddddddaccccaddddddddda.aaa", 
  153.       +"abdddddddddddddddddddddddddd.baa", 
  154.       +"badddddddddddddddddddddddddda.ba", 
  155.       +"bddddddddddcccccccddddddddddd.ba", 
  156.       +"bddddddddddddcccccddddddddddd.bb", 
  157.       +"bddddddddddddcccccddddddddddd.bb", 
  158.       +"bddddddddddddcccccddddddddddd.bb", 
  159.       +"bddddddddddddcccccddddddddddd.bb", 
  160.       +"badddddddddddcccccdddddddddda.bb", 
  161.       +"abdddddddddddcccccdddddddddd.bbb", 
  162.       +"abaddddddddddcccccddddddddda.bbb", 
  163.       +"aabddddddddcccccccccddddddd.bbba", 
  164.       +"aaa.dddddddddddddddddddddd.bbbba", 
  165.       +"aaaa.dddddddddddddddddddd.bbbbaa", 
  166.       +"aaaaa.adddddddddddddddda.bbbbaaa", 
  167.       +"aaaaaa..adddddddddddda..bbbbaaaa", 
  168.       +"aaaaaaab...adddddda...bbbbbaaaaa", 
  169.       +"aaaaaaaabbb...addd.bbbbbbbaaaaaa", 
  170.       +"aaaaaaaaaabbbb.ddd.bbbbbaaaaaaaa", 
  171.       +"aaaaaaaaaaaaab.ddd.bbaaaaaaaaaaa", 
  172.       +"aaaaaaaaaaaaaaa.dd.bbaaaaaaaaaaa", 
  173.       +"aaaaaaaaaaaaaaaa.d.bbaaaaaaaaaaa", 
  174.       +"aaaaaaaaaaaaaaaaa..bbaaaaaaaaaaa", 
  175.       +"aaaaaaaaaaaaaaaaaabbbaaaaaaaaaaa", 
  176.       +"aaaaaaaaaaaaaaaaaaabbaaaaaaaaaaa"); 
  177.  
  178.    Confirmation_Xpm : Gtkada.Types.Chars_Ptr_Array := 
  179.    --  Provide a blue question mark 
  180.      (+"32 32 6 1", 
  181.       --  colors 
  182.       +". c #000000", 
  183.       +"# c #000080", 
  184.       +"a c none g none m none s Background", 
  185.       +"b c #808080", 
  186.       +"c c #0000f8", 
  187.       +"d c #f8fcf8", 
  188.       --  pixels 
  189.       +"aaaaaaaaaaabbbbbbbbaaaaaaaaaaaaa", 
  190.       +"aaaaaaaabbbaddddddabbbaaaaaaaaaa", 
  191.       +"aaaaaabbaddddddddddddabbaaaaaaaa", 
  192.       +"aaaaabaddddddddddddddddabaaaaaaa", 
  193.       +"aaaabdddddddddddddddddddd.aaaaaa", 
  194.       +"aaabdddddddaccccccaddddddd.aaaaa", 
  195.       +"aabdddddddacaddccccaddddddd.aaaa", 
  196.       +"abadddddddccddddccccddddddda.aaa", 
  197.       +"abddddddddccccddccccdddddddd.baa", 
  198.       +"baddddddddccccdaccccdddddddda.ba", 
  199.       +"bdddddddddaccadccccdddddddddd.ba", 
  200.       +"bdddddddddddddacccddddddddddd.bb", 
  201.       +"bdddddddddddddcccdddddddddddd.bb", 
  202.       +"bdddddddddddddccadddddddddddd.bb", 
  203.       +"bdddddddddddddccddddddddddddd.bb", 
  204.       +"badddddddddddddddddddddddddda.bb", 
  205.       +"abdddddddddddaccaddddddddddd.bbb", 
  206.       +"abaddddddddddccccdddddddddda.bbb", 
  207.       +"aabddddddddddccccdddddddddd.bbba", 
  208.       +"aaa.dddddddddaccaddddddddd.bbbba", 
  209.       +"aaaa.dddddddddddddddddddd.bbbbaa", 
  210.       +"aaaaa.adddddddddddddddda.bbbbaaa", 
  211.       +"aaaaaa..adddddddddddda..bbbbaaaa", 
  212.       +"aaaaaaab...adddddda...bbbbbaaaaa", 
  213.       +"aaaaaaaabbb...addd.bbbbbbbaaaaaa", 
  214.       +"aaaaaaaaaabbbb.ddd.bbbbbaaaaaaaa", 
  215.       +"aaaaaaaaaaaaab.ddd.bbaaaaaaaaaaa", 
  216.       +"aaaaaaaaaaaaaaa.dd.bbaaaaaaaaaaa", 
  217.       +"aaaaaaaaaaaaaaaa.d.bbaaaaaaaaaaa", 
  218.       +"aaaaaaaaaaaaaaaaa..bbaaaaaaaaaaa", 
  219.       +"aaaaaaaaaaaaaaaaaabbbaaaaaaaaaaa", 
  220.       +"aaaaaaaaaaaaaaaaaaabbaaaaaaaaaaa"); 
  221.  
  222. end Gtkada.Pixmaps;