The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
GCField("Function",GCFunction,                            function,SvGCint)             /* logical operation */                                            
GCField("PlaneMask",GCPlaneMask,                          plane_mask,SvGCunsigned_long) /* plane mask */                                                   
GCField("Foreground",GCForeground,                        foreground,SvGCunsigned_long) /* foreground pixel */                                             
GCField("Background",GCBackground,                        background,SvGCunsigned_long) /* background pixel */                                             
GCField("LineWidth",GCLineWidth,                          line_width,SvGCint)           /* line width */                                                   
GCField("LineStyle",GCLineStyle,                          line_style,SvGCint)           /* LineSolid, LineOnOffDash, LineDoubleDash */                     
GCField("CapStyle",GCCapStyle,                            cap_style,SvGCint)            /* CapNotLast, CapButt, CapRound, CapProjecting */                 
GCField("JoinStyle",GCJoinStyle,                          join_style,SvGCint)           /* JoinMiter, JoinRound, JoinBevel */                              
GCField("FillStyle",GCFillStyle,                          fill_style,SvGCint)           /* FillSolid, FillTiled, FillStippled, FillOpaeueStippled */       
GCField("FillRule",GCFillRule,                            fill_rule,SvGCint)            /* EvenOddRule, WindingRule */                                     
GCField("Tile",GCTile,                                    tile,SvGCPixmap)              /* tile pixmap for tiling operations */                            
GCField("Stipple",GCStipple,                              stipple,SvGCPixmap)           /* stipple 1 plane pixmap for stipping */                          
GCField("TileStipXOrigin",GCTileStipXOrigin,              ts_x_origin,SvGCint)          /* offset for tile or stipple operations */                        
GCField("TileStipYOrigin",GCTileStipYOrigin,              ts_y_origin,SvGCint)                                                                             
GCField("Font",GCFont,                                    font,SvGCFont)                /* default text font for text operations */                        
GCField("SubwindowMode",GCSubwindowMode,                  subwindow_mode,SvGCint)       /* ClipByChildren, IncludeInferiors */                             
GCField("GraphicsExposures",GCGraphicsExposures,          graphics_exposures,SvGCBool)  /* boolean, should exposures be generated */                       
GCField("ClipXOrigin",GCClipXOrigin,                      clip_x_origin,SvGCint)        /* origin for clipping */                                          
GCField("ClipYOrigin",GCClipYOrigin,                      clip_y_origin,SvGCint)                                                                           
GCField("ClipMask",GCClipMask,                            clip_mask,SvGCPixmap)         /* bitmap clipping; other calls for rects */                       
GCField("ArcMode",GCArcMode,                              arc_mode,SvGCint)             /* ArcChord, ArcPieSlice */