Rel 1.46

ChangeLog

@@ -2,8 +2,9 @@ nuBASIC ChangeLog
 Please send nuBASIC bug reports to <[email protected]>.
 
 2015-12-16
-- Changed icons and commands order of the toolbar
-- Bug-fiexd: IDE did not execute old-style programs if first line is special comment "!#"
+- Changed icons layout and commands order of the toolbar
+- Bug-fix: IDE did not execute old-style programs if first line is special comment "!#"
+- Bug-fix: IDE did not clean "Go to procedures" submenu before build new programs
 
 
 2015-12-15

NEWS

@@ -7,6 +7,13 @@ Please send nuBASIC / nuBasicEditor bug reports to <[email protected]>.
 Win32/64 built with VS2015 needs "Visual C++ Redistributable Packages for Visual Studio 2015"
 https://www.microsoft.com/en-us/download/details.aspx?id=48145
 
+Dec 22, 2015
+* Released nuBASIC 1.46
+- Changed icons layout and commands order of the toolbar
+- Bug-fix: IDE did not execute old-style programs if first line is special comment "!#"
+- Bug-fix: IDE did not clean "Go to procedures" submenu before build new programs
+- Improvements and bug-fixes
+
 
 Dec 15, 2015
 * Released nuBASIC 1.45

README

@@ -25,18 +25,18 @@ Features
 - Tiny version is suitable for embedded systems
 
 -------------------------------------------------------------------------------
-Latest released packages
+Released packages
 -------------------------------------------------------------------------------
 Linux Installers:
-RPM (Fedora) 64 bit Installer - nubasic-1.45-1.fc21.x86_64.rpm
-Debian / Ubuntu 64 bit Installer - nubasic_1.45-1_amd64.deb
+RPM (Fedora) 64 bit Installer - nubasic-<ver>-1.fc21.x86_64.rpm
+Debian / Ubuntu 64 bit Installer - nubasic_<ver>-1_amd64.deb
 
 Windows Installers:
-* Windows 64 bit Installer (VC++ build) - nubasic-ide-1.45-setup_x64.zip
-* Windows 32 bit Installer (VC++ build) - nubasic-ide-1.45-setup.zip
+* Windows 64 bit Installer (VC++ build) - nubasic-ide-<ver>-setup_x64.zip
+* Windows 32 bit Installer (VC++ build) - nubasic-ide-<ver>-setup.zip
 
 Source code:
-* Interpreter and IDE source code: nubasic-1.45.tar.gz
+* Interpreter and IDE source code: nubasic-<ver>.tar.gz
 
 Guides (PDF, ODT):
 * nuBASIC Guide (ENG)

config.h

@@ -74,7 +74,7 @@
 #define PACKAGE_NAME "nubasic"
 
 /* Define to the full name and version of this package. */
-#define PACKAGE_STRING "nubasic 1.45"
+#define PACKAGE_STRING "nubasic 1.46"
 
 /* Define to the one symbol short name of this package. */
 #define PACKAGE_TARNAME "nubasic"
@@ -83,13 +83,13 @@
 #define PACKAGE_URL ""
 
 /* Define to the version of this package. */
-#define PACKAGE_VERSION "1.45"
+#define PACKAGE_VERSION "1.46"
 
 /* Define to 1 if you have the ANSI C header files. */
 #define STDC_HEADERS 1
 
 /* Version number of package */
-#define VERSION "1.45"
+#define VERSION "1.46"
 
 /* Define to `__inline__' or `__inline' if that's what the C compiler
    calls it, or to nothing if 'inline' is not supported under any name.  */

configure

@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for nubasic 1.45.
+# Generated by GNU Autoconf 2.69 for nubasic 1.46.
 #
 # Report bugs to <[email protected]>.
 #
@@ -580,8 +580,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='nubasic'
 PACKAGE_TARNAME='nubasic'
-PACKAGE_VERSION='1.45'
-PACKAGE_STRING='nubasic 1.45'
+PACKAGE_VERSION='1.46'
+PACKAGE_STRING='nubasic 1.46'
 PACKAGE_BUGREPORT='[email protected]'
 PACKAGE_URL=''
 
@@ -1286,7 +1286,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures nubasic 1.45 to adapt to many kinds of systems.
+\`configure' configures nubasic 1.46 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1356,7 +1356,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of nubasic 1.45:";;
+     short | recursive ) echo "Configuration of nubasic 1.46:";;
    esac
   cat <<\_ACEOF
 
@@ -1457,7 +1457,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-nubasic configure 1.45
+nubasic configure 1.46
 generated by GNU Autoconf 2.69
 
 Copyright (C) 2012 Free Software Foundation, Inc.
@@ -1918,7 +1918,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by nubasic $as_me 1.45, which was
+It was created by nubasic $as_me 1.46, which was
 generated by GNU Autoconf 2.69.  Invocation command line was
 
   $ $0 $@
@@ -2781,7 +2781,7 @@ fi
 
 # Define the identity of the package.
  PACKAGE='nubasic'
- VERSION='1.45'
+ VERSION='1.46'
 
 
 cat >>confdefs.h <<_ACEOF
@@ -5933,7 +5933,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by nubasic $as_me 1.45, which was
+This file was extended by nubasic $as_me 1.46, which was
 generated by GNU Autoconf 2.69.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -5999,7 +5999,7 @@ _ACEOF
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
 ac_cs_version="\\
-nubasic config.status 1.45
+nubasic config.status 1.46
 configured by $0, generated by GNU Autoconf 2.69,
   with options \\"\$ac_cs_config\\"
 

configure.ac

@@ -2,7 +2,7 @@
 # Process this file with autoconf to produce a configure script.
 
 AC_PREREQ([2.69])
-AC_INIT([nubasic], [1.45], [[email protected]])
+AC_INIT([nubasic], [1.46], [[email protected]])
 AM_INIT_AUTOMAKE
 AC_CONFIG_SRCDIR([nu_expr_function.h])
 AC_CONFIG_HEADERS([config.h])

examples/breakout.bas

@@ -102,8 +102,8 @@
 1010  lives%=lives%-1
 1020  Locate h%\2,w%\2-12:   Print "Ops... you have "; lives%; " lives"
 1030  Locate h%\2+2,w%\2-12: Print "Press any key to continue"
-1040  a$=Input$(1)
-1050  If a$="q" Then End
+1040  a$=InKey$()
+1050  If a$="q" Then End Else if len(a$) = 0 then Goto 1040
 1060  b%=-1: cls
 1070  GoSub 510 : Rem Rectangle
 1080  GoSub 580 : Rem Draw wall
@@ -113,8 +113,8 @@
 1120 Rem ---- COMPLETED
 1130   Locate h%\2,w%\2-12:   Print "   Sorry, You loose !"
 1140   Locate h%\2+2,w%\2-12: Print "Press any key to continue"
-1150   a$=Input$(1)
-1160   If a$="q" Then end
+1150   a$=InKey$()
+1160   If a$="q" Then end Else goto 1150
 1170   GoTo 60
 1180 Rem Rectangle
 1190   Locate 1,1

examples/breakout2.bas

@@ -272,7 +272,9 @@ ProcessPlayerBallCollision:
    Beep
    Beep
 
-   a$=input$(1)
+   Do 
+      a$=inkey$()
+   Loop While len(a$)<1 
 
    If a$="q" Then End
 

nuBasicEditor/nuBasicEditor.cc

@@ -1832,9 +1832,6 @@ void nu::editor_t::create_funcs_menu() NU_NOEXCEPT
    const rt_prog_ctx_t& prog_ctx = g_editor.interpreter().get_ctx();
    const auto & prototypes = prog_ctx.proc_prototypes.data;
 
-   if (prototypes.empty())
-      return;
-
    std::string list;
 
    HMENU hmenu = GetMenu(get_main_hwnd());
@@ -2016,9 +2013,7 @@ bool nu::editor_t::show_execution_point(int line) NU_NOEXCEPT
       line = 1;
 
    auto endpos = send_command(SCI_GETLINEENDPOSITION, line - 1, 0) + 1;
-
-   //send_command(SCI_LINELENGTH, line - 1, 0)<=1
-
+
    while (!interpreter().has_runnable_stmt(line) && line < endpos)
       ++line;