Add beta number to the about window

davidrg · Mar 2, 2024 · c7d887b · c7d887b
1 parent 62abeee
commit c7d887b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/doc/changes.md b/doc/changes.md
@@ -55,6 +55,7 @@ Windows NT for MIPS computers, though without TAPI support.
 * Binaries are now provided for Windows NT running on Alpha, MIPS and PowerPC
   systems.
 * Upgraded to C-Kermit 10.0 Pre-Beta.11
+* About window (Help -> About) now includes the beta number
 
 ### Source Changes
 

diff --git a/kermit/k95/kui/kabout.cxx b/kermit/k95/kui/kabout.cxx
@@ -8,6 +8,9 @@ static KAbout* kabout = 0;
 
 extern "C" {
     extern char *ck_s_ver;
+#ifdef BETATEST
+    extern char *ck_s_test, *ck_s_tver;
+#endif /* BETATEST */
 }
 
 /*------------------------------------------------------------------------
@@ -80,7 +83,11 @@ Bool KAbout::message( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam )
             // Set the version string
             #define VERSION_LEN 128
             char version[VERSION_LEN];
+#ifdef BETATEST
+            _snprintf(version, VERSION_LEN, "Version %s %s.%s", ck_s_ver, ck_s_test, ck_s_tver);
+#else
             _snprintf(version, VERSION_LEN, "Version %s", ck_s_ver);
+#endif
 
             SendDlgItemMessage(hWnd, IDC_VERSION, WM_SETTEXT, 0,
                     (LPARAM) version);