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 DA_FILE_TYPE := $F1
max_desk_acc_count = 8 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_about6: PASCAL_STRING "Richard Danais and Luc Barthelet"
str_about7: PASCAL_STRING "With thanks to: A. Gerard, J. Gerber, P. Pahl, J. Bernard" str_about7: PASCAL_STRING "With thanks to: A. Gerard, J. Gerber, P. Pahl, J. Bernard"
str_about8: PASCAL_STRING "November 26, 1986" 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 ;; "Copy File" dialog strings
str_copy_title: str_copy_title:

View File

@ -1135,7 +1135,7 @@ dummy_dd_menu:
DEFINE_MENU_ITEM dummy_dd_item DEFINE_MENU_ITEM dummy_dd_item
splash_menu_label: 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: blank_dd_label:
PASCAL_STRING " " PASCAL_STRING " "

View File

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

View File

@ -113,7 +113,7 @@ label_facilities:
PASCAL_STRING "Facilities" PASCAL_STRING "Facilities"
label_desktop: 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: label_blank:
PASCAL_STRING " " PASCAL_STRING " "
label_copyright1: label_copyright1: