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: |
d5cf5d009b91ce83da4a2db67d7d591a |
User & Date: | gerald 2013-09-18 03:02:02.907 |
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
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 | 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 \ | | | | | | 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 | set windows(Mainmenu) .menuBar ## ## Configure the main window ## menu $windows(Mainmenu) $windows(Main) configure -menu $windows(Mainmenu) | | | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | 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 |
︙ | ︙ | |||
174 175 176 177 178 179 180 | ## Add in track menu ## $menuWidget add cascade \ -label {Settings} \ -underline 0 \ -menu $menuWidget.filter menu $menuWidget.filter | | | 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 | ## 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 | ## 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} | > > > | | 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} |
︙ | ︙ |