Casting and Costume Management Application
Check-in [c55dd1dba7]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add in the client builders.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:c55dd1dba76d72b904594cf32b6c49909132b049
User & Date: gerald 2014-12-08 18:25:41
Context
2014-12-12
23:40
Initial checkin for backstage client and its support routines. check-in: 6475c56831 user: gerald tags: trunk
2014-12-08
18:25
Add in the client builders. check-in: c55dd1dba7 user: gerald tags: trunk
18:24
Add support for multiple types of clients. check-in: cdb54e1e07 user: gerald tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added MakeBackstageApp.tcl.









































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

package require Tcl

set ofd [open BackStage.tcl w]
set fileList {
    src/PreBackStageMain.tcl
    src/Functions/ClearGui.tcl
    src/Functions/DisplayAuditionEntryGui.tcl
    src/Functions/InitializeSystem.tcl
    src/Functions/isAdult.tcl
    src/Functions/PerformerDetails.tcl
    src/Functions/SetCb.tcl
    src/Functions/SetPerformer.tcl
    src/Functions/ClientRoutines.tcl
    src/Guis/ClientRoutineGuis.tcl
    src/Guis/CreatePerformerDetailGui.tcl
    src/Guis/TkError.tcl
}

foreach file [glob src/msgcat/*.msg] {
    lappend fileList $file
}

lappend fileList {src/BackStageMain.tcl}


foreach file $fileList {
    set ifd [open $file r]
    fcopy $ifd $ofd
    close $ifd
    puts $ofd {}
}
close $ofd