<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_irpa56i3s7idhn4knj27d1mkms, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
svoid stefansOS_addDynamicModuleDialog2(fS snippetID) {
  stefansOS_addDynamicModuleDialog2(snippetID, false);
}

svoid stefansOS_addDynamicModuleDialog2(fS snippetID, final bool reuseExisting) {
  systemQ.add(r {
    if (reuseExisting) {
      DynamicModule dm = findConcept(DynamicModule, moduleID := snippetID);
      if (dm != null) ret with showModule(dm);
    }

    temp tempBusyAnimation("Loading Module");

    // TODO: Merge this with code sharing?
    Class c = hotwireModule(snippetID);
    L<S> names = (L) callOpt(c, 'myInnerClasses);
    if (names == null)
      names = nonNulls(map getClassDeclarationName(innerClassesOfMain(getServerTranspiledWithoutLibs(snippetID))));
      
    print(+names);
    // only show the usable ones
    try {
      print(mcName := mainClassNameForClassLoader(c.getClassLoader()));
      names = shortClassNames(nonAbstractClassesInRealmWithSuperclassShortNamed(c, "DynModule", names));
      print(+names);
    } catch print e {
      names = null;
    }
    
    if (empty(names))
      stefansOS_showNewDynamicModule(snippetID, null, c);
    else if (l(names) == 1)
      stefansOS_showNewDynamicModule(snippetID, c.getName() + "$" + first(names), c);
    else
      selectFromList("Class to use", concatLists(ll("None"), names), voidfunc(S className) {
        stefansOS_showNewDynamicModule(snippetID, eq(className, "None") ? null : c.getName() + "$" + className, c);
      });
  });
}