#!/usr/bin/tk
set pothome /mnt/dd3/ebook/tech/opengl/pot
source /mnt/dd3/ebook/tech/opengl/pot/tkheader.h
tk_bisque
. configure -cursor gumby

tk appname main 
# assigns a name to the program
tk_bisque
# used to let tk specify default color scheme for widgets etc.
wm geometry . 600x300$winX$winY
# specify the size of the window i.e. 600x300. and the position of the window
# i.e. $winX and $winY where the orign is the top left corner of the screen 

wm resizable . 0 0
#main window is resizeable only in the y direction

##############################################################################

proc initScreen {} {
        wm title . "THE OGL TUTORIAL"
        #Title for the main window (.)
        #. configure -background LavenderBlush
        createframe .menubar 2
 menubutton .menubar.menu -text "Menu" -underline 0 \
                -menu .menubar.menu.chapMenu

        menu .menubar.menu.chapMenu

        .menubar.menu.chapMenu add command\
                -label "Chapter1-The Basics" \
                -command { 
                    catch { exec kill $pid_list }
                     killprocess c1Process
                     killprocess c2Process
                     killprocess c3Process
                     killprocess c4Process
                     killprocess c5Process 
                     killprocess c6Process
            #set wd [exec pwd ]
            #cd CHAP1
                    wm iconify .
                    set pid_list [exec CHAP1/Chap1.tk &] 
                }
            #cd $wd 
.menubar.menu.chapMenu add command\
                -label "Chapter2 - The OGL View"\
                -command {
            catch {exec kill $pid_list }
                     killprocess c1Process
                     killprocess c2Process
                     killprocess c3Process
                     killprocess c4Process
                     killprocess c5Process 
                     killprocess c6Process
             wm iconify .
            set pid_list [exec CHAP2/Chap2.tk &]
        }
        .menubar.menu.chapMenu add command\
                -label "Chapter3 - Primitives & Drawing"\
                -command {
            catch {exec  kill $pid_list}
                     killprocess c1Process
                     killprocess c2Process
                     killprocess c3Process
                     killprocess c4Process
                     killprocess c5Process 
                     killprocess c6Process

  wm iconify .
            set pid_list [exec CHAP3/Chap3.tk &]
        }
        .menubar.menu.chapMenu add command\
                -label "Chapter4 - Color"\
                -command {
            catch {exec kill $pid_list}
                     killprocess c1Process
                     killprocess c2Process
                     killprocess c3Process
                     killprocess c4Process
                     killprocess c5Process 
                     killprocess c6Process
             wm iconify .
            set pid_list [exec CHAP4/Chap4.tk &]
        }
        .menubar.menu.chapMenu add command\
                -label "Chapter5 - Lighting"\
                -command {
            catch {exec kill $pid_list}
                     killprocess c1Process
                     killprocess c2Process
                     killprocess c3Process
                     killprocess c4Process
                     killprocess c5Process 
                     killprocess c6Process
             wm iconify .
            set pid_list [exec CHAP5/Chap5.tk &]
        }

        .menubar.menu.chapMenu add command\
                -label "Chapter6 - Blending, AntiAliasing & Fog"\
                -command {
            catch {exec kill $pid_list}
                     killprocess c1Process
                     killprocess c2Process
                     killprocess c3Process
                     killprocess c4Process
                     killprocess c5Process 
                     killprocess c6Process
             wm iconify .
            set pid_list [exec CHAP6/Chap6.tk &]
        }

#       .menubar.menu.chapMenu add separator
        .menubar.menu.chapMenu add command \
         -label "Exit" \
                -underline 1 \
                -command { catch {exec kill $pid_list }
                     killprocess c1Process
                     killprocess c2Process
                     killprocess c3Process
                     killprocess c4Process
                     killprocess c5Process 
                     killprocess c6Process
                         exit}

        menubutton .menubar.about \
                -text "About..." \
                -underline 0 \
                -menu .menubar.about.menu

        menu .menubar.about.menu
        .menubar.about.menu add command \
                -label "P.O.T." \
                -underline 0 \
                -command { catch {exec kill $pid_list }
                set pid_list [exec About.tk &] }
.menubar.about.menu add separator 

        .menubar.about.menu add command \
                -label "Acknowledgements" \
                -underline 0 \
                -command { catch {exec kill  $pid_list }
                set pid_list [exec Acknowledge.tk &] }
        .menubar.about.menu add separator
        .menubar.about.menu add command \
                -label "License" \
                -underline 0 \
                -command { catch {exec kill $pid_list }
                set pid_list [exec License.tk &] }



image create photo pot -format ppm -file pot4.ppm -height 300 -width 600

label .ppm -image pot
pack .ppm -side bottom -expand y
pack .menubar.menu -side left
pack .menubar.about -side right 
}


initScreen