atoms modules tests fixed
[scilab.git] / scilab / modules / atoms / macros / atoms_internals / atomsGetHomeListboxElts.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2009 - DIGITEO - Vincent COUVERT <vincent.couvert@scilab.org>
3 // Copyright (C) 2009-2010 - DIGITEO - Pierre MARECHAL <pierre.marechal@scilab.org>
4 // Copyright (C) 2013 - Samuel GOUGEON
5 //
6 // This file must be used under the terms of the CeCILL.
7 // This source file is licensed as described in the file COPYING, which
8 // you should have received as part of this distribution. The terms
9 // are also available at
10 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
11
12 function elements = atomsGetHomeListboxElts()
13     items_str  = "";
14     items_mat  = "";
15
16     installed  = atomsGetInstalled();
17     tmp = atomsAutoloadList("all")
18     autoloaded = tmp(:,1)
19     if ~isempty(get("atomsFigure")) then
20         allModules = get("atomsFigure", "UserData");
21
22         items_str  = atomsSetInstalledList(installed)
23         items_mat = installed(:,1)
24         if isempty(items_str)
25             items_str = "";
26             items_mat = "";
27         end
28         items_mat = [emptystr(items_mat)+"module" items_mat ]
29
30         elements("items_str") = items_str;
31         elements("items_mat") = items_mat;
32     else
33         elements = [];
34     end
35 endfunction