isCOBOL Evolve : Appendices : Copybooks : ispalette.def
ispalette.def
*>********************************************************************<*
*>***** Copyright (c) 2005 - 2021 Veryant. Users of isCOBOL      *****<*
*>***** may freely modify and redistribute this program.         *****<*
*>********************************************************************<*
 
       >>SOURCE FORMAT FREE
 
78  wpalette-supported                           value 1.
78  wpalette-num-colors                          value 2.
78  wpalette-get-color                           value 3.
78  wpalette-set-color                           value 4.
78  wpalette-update                              value 5.
78  wpalette-choose-color                        value 6.
78  wpalette-set-user-color                      value 7.
 
78  wpchoose-use-default                         value 1.
 
78  wpuser-color-3d                              value 1.
78  wpuser-color-background                      value 2.
 
78  wpal-no-support                              value 0.
78  wpal-palette-supported                       value 1.
78  wpal-full-support                            value 2.
 
78  wperr-unsupported                            value 0.
78  wperr-bad-arg                                value -1.
78  wperr-cancelled                              value -2.
 
01  wpalette-data.
    03  wpal-color-id                            pic x comp-x.
    03  wpal-flags    redefines wpal-color-id    pic x comp-x.
    03  wpal-red                                 pic x comp-x.
    03  wpal-user-color-id   redefines wpal-red  pic x comp-x.
    03  wpal-green                               pic x comp-x.
    03  wpal-blue                                pic x comp-x.
 
       >>SOURCE FORMAT PREVIOUS