[Eas-dev-commit] clip-ui/drivers Makefile, NONE, 1.1 driver-gtk.prg, NONE, 1.1 driver-gtk2.prg, NONE, 1.1

[Andrey C. <sku...@us...>]

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