Daidze POS Code

#!/bin/sh
# main.tcl \
exec tclsh "$0" ${1+"$@"}

##################################################################################################################################
#
# Copyright (C) 2008-2011 Mind System Connection. Lda. Part of Daidze Software, created by Siqsuruq. All other rights reserved.
#
# Mind System Connection Webpage: www.msysc.org
# Daidze Software Page: www.daidze.com www.daidze.org
# E-mail: admin@msysc.org, siqsuruq@gmail.com
#
##################################################################################################################################
lappend ::auto_path lib

#Packages required
package require xml_wrapper
package require pgintcl
package require pdf4tcl
package require audit::audit
package require inifile
package require TclOO
package require md5
package require -exact tablelist 5.4


# Include Source Files from incl directory

set files [glob [file join incl *]]
foreach f $files {
	source $f
}

# Read configuration file
read_config {daidze.ini}
log_init

# Load Translations
msgcat::mclocale $language
msgcat::mcload [file join [file dirname [info script]] lang]

set db [my_pgdb new]
set daidze_users::username ""
set daidze_users::groups ""

if {$daidze_users::username == ""} {
	login
} else {
	main
}



toplevel .splash

	wm overrideredirect .splash 1 ;# Make sure there is no title etc.
	set screenwidth  [winfo screenwidth  .]
	set screenheight [winfo screenheight .]

	set width 1600
	set height 1200

	wm minsize .splash $width $height  ;# Make sure it has the right size
	wm maxsize .splash $width $height

	set xsplash      [expr {($screenwidth  - $width)  / 2}]
	set ysplash      [expr {($screenheight - $height) / 2}]

	wm geometry      .splash +$xsplash+$ysplash
	label .splash.msg -image [image create photo -file [file join img splash_img.png]]
	grid  .splash.msg             ;# Make it visible

	after 1000 {
		destroy .splash
	}


# source debuggy.tcl