FLTK: add online samples command

Author: chrisws

ChangeLog

@@ -1,3 +1,6 @@
+2019-12-13 (0.12.17)
+	FLTK: add online samples command
+
 2019-12-07 (0.12.17)
 	FLTK: fix memory leaks
 	FLTK: implement audio

src/platform/fltk/MainWindow.cxx

@@ -509,6 +509,19 @@ void MainWindow::run_break(Fl_Widget *w, void *eventData) {
   }
 }
 
+/**
+ * run the online samples program
+ */
+void MainWindow::run_samples(Fl_Widget *w, void *eventData) {
+  if (runMode == edit_state) {
+    runMode = run_state;
+    _runtime->runSamples();
+    runMode = edit_state;
+  } else {
+    busyMessage();
+  }
+}
+
 /**
  * run the selected text as the main program
  */
@@ -981,6 +994,7 @@ MainWindow::MainWindow(int w, int h) :
   m->add("&Program/&Break", FL_CTRL + 'b', run_break_cb);
   m->add("&Program/_&Restart", FL_CTRL + 'r', restart_run_cb);
   m->add("&Program/&Command", FL_F+10, set_options_cb);
+  m->add("&Program/Online Samples", 0, run_samples_cb);
   m->add("&Help/&Help Contents", FL_F+1, help_contents_cb);
   m->add("&Help/_&Context Help", FL_F+2, help_contents_brief_cb);
   m->add("&Help/&Program Help", FL_F+11, help_app_cb);

src/platform/fltk/MainWindow.h

@@ -134,6 +134,7 @@ struct MainWindow : public BaseWindow {
   CALLBACK_METHOD(quit);
   CALLBACK_METHOD(restart_run);
   CALLBACK_METHOD(run);
+  CALLBACK_METHOD(run_samples);
   CALLBACK_METHOD(run_break);
   CALLBACK_METHOD(run_selection);
   CALLBACK_METHOD(save_file_as);

src/platform/fltk/runtime.cxx

@@ -17,6 +17,7 @@
 
 extern MainWindow *wnd;
 extern System *g_system;
+static auto *onlineUrl = "http://smallbasic.github.io/samples/index.bas";
 
 #define MIN_WINDOW_SIZE 10
 #define OPTIONS_BOX_WIDTH_EXTRA 4
@@ -60,9 +61,9 @@ void Runtime::alert(const char *title, const char *message) {
 int Runtime::ask(const char *title, const char *prompt, bool cancel) {
   int result;
   if (cancel) {
-    result = fl_choice(prompt, "Yes", "No", "Cancel", NULL);
+    result = fl_choice(prompt, "Yes", "No", "Cancel", nullptr);
   } else {
-    result = fl_choice(prompt, "Yes", "No", 0, NULL);
+    result = fl_choice(prompt, "Yes", "No", 0, nullptr);
   }
   return result;
 }
@@ -76,7 +77,7 @@ void Runtime::enableCursor(bool enabled) {
 }
 
 char *Runtime::getClipboardText() {
-  return NULL;
+  return nullptr;
 }
 
 int Runtime::handle(int e) {
@@ -126,7 +127,7 @@ void Runtime::optionsBox(StringList *items) {
     menu[index].labelfont_ = FL_HELVETICA;
     menu[index].labelsize_ = FL_NORMAL_SIZE;
     menu[index].labelcolor_ = FL_FOREGROUND_COLOR;
-    menu[index].measure(&h, NULL);
+    menu[index].measure(&h, nullptr);
 
     height += h + 1;
     w = (strlen(str) * charWidth);
@@ -137,7 +138,7 @@ void Runtime::optionsBox(StringList *items) {
   }
 
   menu[index].flags = 0;
-  menu[index].text = NULL;
+  menu[index].text = nullptr;
   width += (charWidth * OPTIONS_BOX_WIDTH_EXTRA);
 
   int menuX = event_x();
@@ -201,8 +202,33 @@ void Runtime::resize(int w, int h) {
   }
 }
 
+void Runtime::runSamples() {
+  logEntered();
+  _loadPath = onlineUrl;
+  _mainBas = true;
+
+  String activePath = _loadPath;
+  bool started = execute(onlineUrl);
+
+  while (started && !wnd->isBreakExec()) {
+    if (isBreak() && (activePath.equals(onlineUrl) || activePath.equals(_loadPath))) {
+      // break from index page OR break with same _loadPath
+      break;
+    }
+    if (_loadPath.empty()) {
+      // return to index page
+      _loadPath = onlineUrl;
+    }
+    activePath = _loadPath;
+    started = execute(_loadPath);
+  }
+  _mainBas = false;
+  showCompletion(started);
+  _output->redraw();
+}
+
 void Runtime::setClipboardText(const char *text) {
-  Fl::copy(text, strlen(text), true);
+  Fl::copy(text, strlen(text), 1);
 }
 
 void Runtime::setFontSize(int size) {
@@ -347,7 +373,7 @@ int osd_devrestore() {
 void appLog(const char *format, ...) {
   va_list args;
   va_start(args, format);
-  unsigned size = vsnprintf(NULL, 0, format, args);
+  unsigned size = vsnprintf(nullptr, 0, format, args);
   va_end(args);
 
   if (size) {

src/platform/fltk/runtime.h

@@ -26,6 +26,7 @@ struct Runtime : public System {
   void optionsBox(StringList *items);
   MAEvent processEvents(int waitFlag);
   bool run(const char *bas) { return execute(bas); }
+  void runSamples();
   void resize(int w, int h);
   void setClipboardText(const char *text);
   void setFontSize(int size);