diff --git a/desktop.inc b/desktop.inc index ed4d878..7097260 100644 --- a/desktop.inc +++ b/desktop.inc @@ -9,6 +9,7 @@ screen_height := 192 VERSION_MAJOR = 1 VERSION_MINOR = 2 +.define VERSION_SUFFIX "-alpha1" DA_FILE_TYPE := $F1 diff --git a/desktop/desktop_aux.s b/desktop/desktop_aux.s index 0c9808f..66c1945 100644 --- a/desktop/desktop_aux.s +++ b/desktop/desktop_aux.s @@ -2882,7 +2882,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 14, 2018" -str_about9: PASCAL_STRING .sprintf("Version %d.%d",::VERSION_MAJOR,::VERSION_MINOR) +str_about9: PASCAL_STRING .sprintf("Version %d.%d%s",::VERSION_MAJOR,::VERSION_MINOR,VERSION_SUFFIX) ;; "Copy File" dialog strings str_copy_title: @@ -3034,8 +3034,6 @@ str_save_selector_list: str_on_system_disk: PASCAL_STRING "on the system disk ?" - - .assert * = $B5D9, error, "Segment length mismatch" PAD_TO $B600 ;;; ============================================================ diff --git a/desktop/desktop_main.s b/desktop/desktop_main.s index b378ba5..856095e 100644 --- a/desktop/desktop_main.s +++ b/desktop/desktop_main.s @@ -12020,7 +12020,7 @@ jump_relay: axy_call draw_dialog_label, 6 | DDL_CENTER, desktop_aux::str_about6 axy_call draw_dialog_label, 7, desktop_aux::str_about7 axy_call draw_dialog_label, 9, desktop_aux::str_about8 - copy16 #310, dialog_label_pos + copy16 #310 - (7 * .strlen(VERSION_SUFFIX)), dialog_label_pos axy_call draw_dialog_label, 9, desktop_aux::str_about9 copy16 #dialog_label_default_x, dialog_label_pos diff --git a/desktop/desktop_res.s b/desktop/desktop_res.s index f5c6b69..b5c929c 100644 --- a/desktop/desktop_res.s +++ b/desktop/desktop_res.s @@ -1147,7 +1147,7 @@ dummy_dd_menu: DEFINE_MENU_ITEM dummy_dd_item splash_menu_label: - PASCAL_STRING .sprintf("Apple II DeskTop Version %d.%d",::VERSION_MAJOR,::VERSION_MINOR) + PASCAL_STRING .sprintf("Apple II DeskTop Version %d.%d%s", ::VERSION_MAJOR,::VERSION_MINOR,VERSION_SUFFIX) blank_dd_label: PASCAL_STRING " "