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