# $Header: /home/cvsroot/tcldb/ucodb/Tlib/Capitalize,v 1.1.1.1 1996/10/12 01:08:25 de Exp $
# tcl procs saved on Sun Sep 03 16:18:59 PDT 1995

proc Capitalize {string mode} {

	case $mode in  {
	{all} {
	
	set nstring ""

	foreach word $string {

		set let1 [string toupper [crange $word 0 0]]
		set rem  [string tolower [crange $word 1 end]]

		append nstring "$let1$rem "
		
	}

	} 
	{first} {

	set word [lindex $string 0]
	set let1 [string toupper [crange $word 0 0]]
	set rem  [string tolower [crange $word 1 end]]
		
	append nstring "$let1$rem "

	foreach word [lrange $string 1 end] {
		append nstring "[string tolower $word] "
	}
		
	}
	{default} {

        set word [lindex $string 0]
        set let1 [string toupper [crange $word 0 0]]
        set rem  [string tolower [crange $word 1 end]]

        append nstring "$let1$rem "

        foreach word [lrange $string 1 end] {
                append nstring "$word "
        }

        }

	}

	return $nstring

}

