Use constants for version fields

This commit is contained in:
Joshua Bell 2018-11-18 23:35:25 -08:00
parent 5ddb8efe6f
commit 45e649b57c
5 changed files with 7 additions and 4 deletions

View File

@ -7,6 +7,9 @@ screen_height := 192
;;; ============================================================
VERSION_MAJOR = 1
VERSION_MINOR = 1
DA_FILE_TYPE := $F1
max_desk_acc_count = 8

View File

@ -2923,7 +2923,7 @@ str_about5: PASCAL_STRING "Authors: Stephane Cavril, Bernard Gallet, Henri Lami
str_about6: PASCAL_STRING "Richard Danais and Luc Barthelet"
str_about7: PASCAL_STRING "With thanks to: A. Gerard, J. Gerber, P. Pahl, J. Bernard"
str_about8: PASCAL_STRING "November 26, 1986"
str_about9: PASCAL_STRING "Version 1.1"
str_about9: PASCAL_STRING .sprintf("Version %d.%d",::VERSION_MAJOR,::VERSION_MINOR)
;; "Copy File" dialog strings
str_copy_title:

View File

@ -1135,7 +1135,7 @@ dummy_dd_menu:
DEFINE_MENU_ITEM dummy_dd_item
splash_menu_label:
PASCAL_STRING "Apple II DeskTop Version 1.1"
PASCAL_STRING .sprintf("Apple II DeskTop Version %d.%d",::VERSION_MAJOR,::VERSION_MINOR)
blank_dd_label:
PASCAL_STRING " "

View File

@ -31,7 +31,7 @@ menu: DEFINE_MENU 1
DEFINE_MENU_ITEM menu_target + (item_label - menu_bar)
menu_label:
PASCAL_STRING " Disk copy version 1.1 "
PASCAL_STRING .sprintf(" Disk copy version %d.%d ",::VERSION_MAJOR,::VERSION_MINOR)
item_label:
PASCAL_STRING "Rien"
.endproc

View File

@ -113,7 +113,7 @@ label_facilities:
PASCAL_STRING "Facilities"
label_desktop:
PASCAL_STRING "Apple II DeskTop version 1.1"
PASCAL_STRING .sprintf("Apple II DeskTop version %d.%d",::VERSION_MAJOR,::VERSION_MINOR)
label_blank:
PASCAL_STRING " "
label_copyright1: