Update of /cvsroot/eas-dev/clip-ui/drivers
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv3665
Added Files:
Makefile driver-gtk.prg driver-gtk2.prg
Log Message:
Add files
--- NEW FILE: Makefile ---
# This is a part of CLIP-UI library
#
# Copyright (C) 2003-2005 by E/AS Software Foundation
# Author: Andrey Cherepanov <sk...@ea...>
ifndef CLIPROOT
CLIPROOT=$(shell cd ../../../../; pwd)/cliproot
endif
include $(CLIPROOT)/include/Makefile.inc
CLIPINCLUDE = -I$(CLIPROOT)/include
CLIP = $(CLIPROOT)/bin/clip
OBJS = driver-gtk.po driver-gtk2.po
.PHONY: all clean uninstall distclean
all: $(OBJS)
clean:
rm -f $(OBJS) *.bak *.nm *.ex *.ppo *.dll.a *.log *.dll
install: all
mkdir -p $(DESTDIR)$(CLIPROOT)/lib/drivers
$(CLIPROOT)/bin/clip_cp $(OBJS) $(DESTDIR)$(CLIPROOT)/lib/drivers
uninstall:
rm -f $(CLIPROOT)/lib/drivers/$(OBJS)
distclean: clean
dist: distclean
driver-gtk.po: driver-gtk.prg
$(CLIP) $(CLIPINCLUDE) -I../../clip-gtk -nw -p driver-gtk.prg || exit 0
driver-gtk2.po: driver-gtk2.prg
$(CLIP) $(CLIPINCLUDE) -I../../clip-gtk2 -nw -p driver-gtk2.prg || exit 0
--- NEW FILE: driver-gtk.prg ---
/*-------------------------------------------------------------------------*/
/* This is a part of CLIP-UI library */
/* */
/* Copyright (C) 2005 by E/AS Software Foundation */
/* Authors: */
/* Andrey Cherepanov <sk...@ea...> */
/* Igor Satsyuk <sa...@tu...> */
/* */
/* This program is free software; you can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as */
/* published by the Free Software Foundation; either version 2 of the */
/* License, or (at your option) any later version. */
/*-------------------------------------------------------------------------*/
#include <clip-gtk.ch>
#include "../clip-ui.ch"
static drv := NIL
/* GTK+ 1.x driver. */
[...1732 lines suppressed...]
return cd
static function conv_color_to_str(red, green, blue)
local color := '#'
if red > 0
color += ntoc((red + 1) / 256 - 1, 16, 2, '0')
else
color += '00'
endif
if green > 0
color += ntoc((green + 1) / 256 - 1, 16, 2, '0')
else
color += '00'
endif
if blue > 0
color += ntoc((blue + 1) / 256 - 1, 16, 2, '0')
else
color += '00'
endif
return color
--- NEW FILE: driver-gtk2.prg ---
/*-------------------------------------------------------------------------*/
/* This is a part of CLIP-UI library */
/* */
/* Copyright (C) 2005 by E/AS Software Foundation */
/* Authors: */
/* Andrey Cherepanov <sk...@ea...> */
/* Igor Satsyuk <sa...@tu...> */
/* */
/* This program is free software; you can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as */
/* published by the Free Software Foundation; either version 2 of the */
/* License, or (at your option) any later version. */
/*-------------------------------------------------------------------------*/
#include <clip-gtk2.ch>
//#include <gtk2-stock.ch>
#include "../clip-ui.ch"
static drv := NIL
[...1780 lines suppressed...]
return cd
static function conv_color_to_str(red, green, blue)
local color := '#'
if red > 0
color += ntoc((red + 1) / 256 - 1, 16, 2, '0')
else
color += '00'
endif
if green > 0
color += ntoc((green + 1) / 256 - 1, 16, 2, '0')
else
color += '00'
endif
if blue > 0
color += ntoc((blue + 1) / 256 - 1, 16, 2, '0')
else
color += '00'
endif
return color
|
