mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 11:25:08 +00:00
Allows clicking the status bar Version and Line number to open the About and the "Go to line" dialogs.
15 lines
470 B
QBasic
15 lines
470 B
QBasic
DIM SHARED Version AS STRING
|
|
DIM SHARED BuildNum AS STRING
|
|
DIM SHARED AutoBuildMsg AS STRING
|
|
|
|
Version$ = "1.5"
|
|
BuildNum$ = "(development build)"
|
|
IF _FILEEXISTS("internal/version.txt") THEN
|
|
versionfile = FREEFILE
|
|
OPEN "internal/version.txt" FOR INPUT AS #versionfile
|
|
LINE INPUT #versionfile, AutoBuildMsg
|
|
AutoBuildMsg = _TRIM$(AutoBuildMsg)
|
|
IF LEFT$(AutoBuildMsg, 9) <> "From git " THEN AutoBuildMsg = ""
|
|
CLOSE #versionfile
|
|
END IF
|
|
|