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

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

Overview
Comment:Corrections to Audition Entry screen and others.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d5cf5d009b91ce83da4a2db67d7d591a165f3da6
User & Date: gerald 2013-09-18 03:02:02
Context
2013-09-18
20:07
Fixed save/cancel focus issue. check-in: e3e7440517 user: gerald tags: trunk
03:02
Corrections to Audition Entry screen and others. check-in: d5cf5d009b user: gerald tags: trunk
2012-12-14
05:18
Adjsut width of tree column. check-in: 9c5d43961b user: gerald tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added docs/images/AuditionViewTab.tiff.

cannot compute difference between binary files

Added docs/images/AudtionEntryDialog.tiff.

cannot compute difference between binary files

Added docs/images/CostumeAssisgnmentDialog.tiff.

cannot compute difference between binary files

Added docs/images/CostumeViewTab.tiff.

cannot compute difference between binary files

Added docs/images/PerformerViewTab.tiff.

cannot compute difference between binary files

Added docs/images/ReportMaintenanceDialog_Costumes.tiff.

cannot compute difference between binary files

Added docs/images/ShowViewTab.tiff.

cannot compute difference between binary files

Added docs/images/TableMaintenance_Characters.tiff.

cannot compute difference between binary files

Added docs/images/TableMaintenance_Performer.tiff.

cannot compute difference between binary files

Added docs/images/TableMaintenance_Show.tiff.

cannot compute difference between binary files

Changes to src/Functions/DisplayAuditionEntryGui.tcl.

122
123
124
125
126
127
128





















129
130
131
132
133
134
135
    variable systemInfo

    if {[string equal $AuditionEntryGui(auditionnumber) {}] ||
        [string equal $AuditionEntryGui(FirstName) {}] ||
        [string equal $AuditionEntryGui(LastName) {}]} {
        return
    }






















    if {!$AuditionEntryGui(ExistingDancer)} {
        ##
        ## Generate a Hysell ID
        ##
        db eval {
            select max(HysellId)+1 HysellId







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
    variable systemInfo

    if {[string equal $AuditionEntryGui(auditionnumber) {}] ||
        [string equal $AuditionEntryGui(FirstName) {}] ||
        [string equal $AuditionEntryGui(LastName) {}]} {
        return
    }

    ##
    ## Verify Audition Number not in use
    ##
    db eval {
        select count(*) auditionNumberUsed
            from Casting
            where auditionnumber = $AuditionEntryGui(auditionnumber)
              and ShowID = $AuditionEntryGui(ShowID)
    } dbArr {
        if {$dbArr(auditionNumberUsed)} {
            tk_messageBox \
                -default ok \
                -icon error \
                -message {Audition number already exists} \
                -parent $windows(AuditionEntryGui) \
                -title {Audition number already exists} \
                -type ok 
            return
        }
    }

    if {!$AuditionEntryGui(ExistingDancer)} {
        ##
        ## Generate a Hysell ID
        ##
        db eval {
            select max(HysellId)+1 HysellId

Changes to src/Functions/TableMaintenace.tcl.

116
117
118
119
120
121
122

123
124
125
126
127
128
129
proc CreateTableMaintenaceGui {tableName} {
    ::log::log debug [info level 0]
    variable windows

    set w .tm_$tableName
    toplevel $w
    wm withdraw $w

    set windows(tm,toplevel,$tableName) $w
    set windows(tm,tableName,$w) $tableName
    wm title $w [::msgcat::mc tm,Title,$tableName]
    wm protocol $w WM_DELETE_WINDOW [list TableMaintCancel $w]
    wm maxsize $w [winfo screenwidth $windows(Main)] [winfo screenheight $windows(Main)]

    db eval "select * from $tableName" dbArr {set colList $dbArr(*); break}







>







116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
proc CreateTableMaintenaceGui {tableName} {
    ::log::log debug [info level 0]
    variable windows

    set w .tm_$tableName
    toplevel $w
    wm withdraw $w
    wm transient $w .
    set windows(tm,toplevel,$tableName) $w
    set windows(tm,tableName,$w) $tableName
    wm title $w [::msgcat::mc tm,Title,$tableName]
    wm protocol $w WM_DELETE_WINDOW [list TableMaintCancel $w]
    wm maxsize $w [winfo screenwidth $windows(Main)] [winfo screenheight $windows(Main)]

    db eval "select * from $tableName" dbArr {set colList $dbArr(*); break}

Changes to src/Guis/AuditionEntryGui.tcl.

157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
    bind $d.ent_FirstName <FocusIn> [list GenerateAuditionNumber]
    bind $d.ent_LastName <FocusOut> [list CheckForPerformer]


    set b [::ttk::frame $w.buttons]
    grid configure $b -sticky ew
    ::ttk::button $b.save \
        -takefocus 1 \
        -text {Save} \
        -width 6 \
        -command SaveAuditionEntry
    ::ttk::button $b.clear \
        -takefocus 1 \
        -text {Clear} \
        -width 6 \
        -command [list DisplayAuditionEntryGui]
    bind $w <Return> [list $b.save invoke]
    bind $w <Escape> [list $b.clear invoke]
    grid configure x $b.save  x $b.clear  x
    grid columnconfigure $b {0 2 4} -weight 1

    grid columnconfigure $w $d -weight 1
    grid rowconfigure $w $d -weight 1

    return







|




|



|
|







157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
    bind $d.ent_FirstName <FocusIn> [list GenerateAuditionNumber]
    bind $d.ent_LastName <FocusOut> [list CheckForPerformer]


    set b [::ttk::frame $w.buttons]
    grid configure $b -sticky ew
    ::ttk::button $b.save \
        -takefocus no \
        -text {Save} \
        -width 6 \
        -command SaveAuditionEntry
    ::ttk::button $b.clear \
        -takefocus no \
        -text {Clear} \
        -width 6 \
        -command [list DisplayAuditionEntryGui]
    #bind $w <Return> [list $b.save invoke]
    #bind $w <Escape> [list $b.clear invoke]
    grid configure x $b.save  x $b.clear  x
    grid columnconfigure $b {0 2 4} -weight 1

    grid columnconfigure $w $d -weight 1
    grid rowconfigure $w $d -weight 1

    return

Changes to src/Guis/MainWindow.tcl.

65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
...
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
    set windows(Mainmenu) .menuBar

    ##
    ## Configure the main window
    ##
    menu $windows(Mainmenu)
    $windows(Main) configure -menu $windows(Mainmenu)
    wm title $windows(Main) {Ballet Hysell Data Manager}
    wm protocol $windows(Main) WM_DELETE_WINDOW ExitApplication
    wm maxsize $windows(Main) [winfo screenwidth $windows(Main)] [winfo screenheight $windows(Main)]

    tk appname {Hysell}

    ##
    ## Build the main menu
................................................................................
    ## Add in track menu
    ##
    $menuWidget add cascade \
        -label {Settings} \
        -underline 0 \
        -menu $menuWidget.filter
    menu $menuWidget.filter
    $menuWidget.filter add cascade \
        -label {Export Controls} \
        -underline 1 \
        -menu $menuWidget.filter.export
    menu $menuWidget.filter.export
    $menuWidget.filter.export add checkbutton \
        -label {Selected Records} \
        -underline 10 \







|







 







|







65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
...
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
    set windows(Mainmenu) .menuBar

    ##
    ## Configure the main window
    ##
    menu $windows(Mainmenu)
    $windows(Main) configure -menu $windows(Mainmenu)
    wm title $windows(Main) {OpenShow Data Manager}
    wm protocol $windows(Main) WM_DELETE_WINDOW ExitApplication
    wm maxsize $windows(Main) [winfo screenwidth $windows(Main)] [winfo screenheight $windows(Main)]

    tk appname {Hysell}

    ##
    ## Build the main menu
................................................................................
    ## Add in track menu
    ##
    $menuWidget add cascade \
        -label {Settings} \
        -underline 0 \
        -menu $menuWidget.filter
    menu $menuWidget.filter
    #$menuWidget.filter add cascade \
        -label {Export Controls} \
        -underline 1 \
        -menu $menuWidget.filter.export
    menu $menuWidget.filter.export
    $menuWidget.filter.export add checkbutton \
        -label {Selected Records} \
        -underline 10 \

Changes to src/msgcat/en.msg.

30
31
32
33
34
35
36



37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
##  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR  OTHERWISE) ARISING IN       ##
##  ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF  ADVISED OF THE         ##
##  POSSIBILITY OF SUCH DAMAGE.                                              ##
##                                                                           ##
###############################################################################

::msgcat::mcmset en {



    addSelected {<}
    addAll {<<}
    removeSelected {>}
    removeAll {>>}
    New     {New}
    Delete  {Delete}
    Save    {Save}
    Revert  {Revert}
    Clear   {Clear}
    Close   {Close}
    RowNumber {Row Number}
    HysellId {Hysell ID}
    FirstName {First Name}
    LastName {Last Name}
    BirthDate {Birth Date}
    ParentName {Mother's First}
    ParentLast {Last}
    MobileNumber {Mobile}
    PhoneNumber {Home}







>
>
>











|







30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
##  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR  OTHERWISE) ARISING IN       ##
##  ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF  ADVISED OF THE         ##
##  POSSIBILITY OF SUCH DAMAGE.                                              ##
##                                                                           ##
###############################################################################

::msgcat::mcmset en {
    tm,Title,Show {Show Table Maintenance}
    tm,Title,characters {Character Classes Table Maintenance}
    tm,Title,Performers {Performers Table Maintenance}
    addSelected {<}
    addAll {<<}
    removeSelected {>}
    removeAll {>>}
    New     {New}
    Delete  {Delete}
    Save    {Save}
    Revert  {Revert}
    Clear   {Clear}
    Close   {Close}
    RowNumber {Row Number}
    HysellId {Performer ID}
    FirstName {First Name}
    LastName {Last Name}
    BirthDate {Birth Date}
    ParentName {Mother's First}
    ParentLast {Last}
    MobileNumber {Mobile}
    PhoneNumber {Home}