octave_packages/java-1.2.8/dlgtest.m

   1 %
   2 % Install the java package.
   3 % Test the dlg... functions of the java package.
   4 %
   5 % Author: Martin Hepperle
   6 % Version August 2010
   7 %
   8 function dlgtest ( reinstall )
   9
  10    % Windows example paths
  11    if ispc()
  12       % NOTE: do NOT use backslashes as separator, only forward slashes!
  13       pkgpath = 'z:/java-1.2.8.tar.gz';
  14       java_home = getenv ("JAVA_HOME");
  15    elseif isunix()
  16       % Linux example paths
  17       pkgpath = '~/java-1.2.8.tar.gz';
  18       java_home = getenv ("JAVA_HOME");
  19    else
  20       pkgpath = 'unknown';
  21       java_home = 'unknown';
  22    end
  23
  24    if nargin<1
  25       disp('usage: dlgtest ( reinstall )');
  26       disp( 'where: reinstall = 0 : do not reinstall java package');
  27       disp(['       reinstall = 1 : reinstall java package from ', pkgpath, ...
  28             ', using Java JDK from ', java_home]);
  29       return
  30    end
  31
  32   if ! exist (java_home, "dir")
  33     disp(['Java JDK home directory ', java_home,' does not exist.']);
  34     disp('Please adapt java_home in dlgtest.m.');
  35     return;
  36   end
  37
  38   if reinstall == 1
  39     if ! exist (pkgpath, "file")
  40       disp(['Package file ', pkgpath, ' does not exist.']);
  41       disp('Please adapt pkgpath in dlgtest.m.');
  42       return;
  43     end
  44   end
  45
  46   page_screen_output(0);
  47
  48   if reinstall == 1
  49     disp('- uninstalling package java');
  50     pkg uninstall java
  51
  52     disp(['- installing package java from ',pkgpath]);
  53     disp(['  using JDK from ',java_home]);
  54     setenv('JAVA_HOME',java_home)
  55     %% pkg does not understand variables as arguments?
  56     eval(['pkg install ', pkgpath])
  57     disp('Done.');
  58   end
  59
  60   page_screen_output(1);
  61
  62   answer = 1;
  63   while (answer > 0 )
  64
  65     disp('');
  66     disp('0 ... STOP');
  67     disp('1 ... listdlg tests');
  68     disp('2 ... errordlg tests');
  69     disp('3 ... warndlg tests');
  70     disp('4 ... helpdlg tests');
  71     disp('5 ... inputdlg tests');
  72     disp('6 ... TeX code tests');
  73
  74     answer = str2num(input ('Run which test?   [0] > ','s'));
  75
  76     disp('');
  77
  78     switch answer
  79       case 1
  80         test_listdlg();
  81       case 2
  82         test_errordlg();
  83       case 3
  84         test_warndlg();
  85       case 4
  86         test_helpdlg();
  87       case 5
  88         test_inputdlg();
  89       case 6
  90         test_TeXCodes();
  91     end
  92   end
  93
  94    %   d = javaObject('javax.swing.JDialog');
  95    %   cp = d.getContentPane;
  96    %   b = javaObject('javax.swing.JButton','OK');
  97    %   cp.add(b);
  98    %   d.pack;
  99    %   d.setVisible(true);
 100
 101
 102    page_screen_output(1);
 103
 104 end
 105
 106 function test_listdlg
 107
 108    %-----------------------------------------------
 109    disp('- test listdlg with selectionmode single. No caption, no prompt.');
 110    itemlist = {'An item \\alpha', 'another', 'yet another'};
 111    s = listdlg ( 'ListString',itemlist, 'SelectionMode','Single' );
 112    imax = length(s);
 113    for i=1:1:imax
 114       disp(['Selected: ',num2str(i),': ', itemlist{s(i)}]);
 115    end
 116
 117    %-----------------------------------------------
 118    disp('- test listdlg with selectionmode and preselection. Has caption and two lines prompt.');
 119    s = listdlg ( 'ListString',itemlist, ...
 120                  'SelectionMode','Multiple', ...
 121                  'Name','Selection Dialog', ...
 122                  'InitialValue',[1,2,3,4],
 123                  'PromptString',{'Select an item...', '...or multiple items'} );
 124    imax = length(s);
 125    for i=1:1:imax
 126       disp(['Selected: ',num2str(i),': ', itemlist{s(i)}]);
 127    end
 128
 129 end
 130
 131 function test_errordlg
 132    %-----------------------------------------------
 133    disp('- test errordlg with prompt only.');
 134    errordlg('Oops, an expected error occured');
 135    %-----------------------------------------------
 136    disp('- test errordlg with prompt and caption.');
 137    errordlg('Oops another error','This is a very long and informative caption');
 138 end
 139
 140 function test_warndlg
 141    %-----------------------------------------------
 142    disp('- test warndlg with prompt only.');
 143    warndlg('Oh, a warning occured');
 144    %-----------------------------------------------
 145    disp('- test warndlg with prompt and caption.');
 146    warndlg('Oh, No...','This is the last Warning');
 147 end
 148
 149 function test_helpdlg
 150    %-----------------------------------------------
 151    disp('- test helpdlg with a help message only.');
 152    helpdlg("Below, you should see 3 lines:\nline #1\nline #2, and\nline #3.");
 153    %-----------------------------------------------
 154    disp('- test helpdlg with help message and caption.');
 155    helpdlg('You should see a single line.','A help dialog');
 156 end
 157
 158 function test_inputdlg
 159    %-----------------------------------------------
 160    disp('- test inputdlg with prompt and caption only.');
 161    prompt = {'Width','Height','Depth'};
 162    dims = inputdlg ( prompt, 'Enter Box Dimensions' );
 163    if isempty(dims)
 164       helpdlg('Canceled by user', 'Information');
 165    else
 166       volume  = str2num(dims{1}) * str2num(dims{2}) * str2num(dims{3});
 167       surface = 2 * (str2num(dims{1}) * str2num(dims{2}) + ...
 168                      str2num(dims{2}) * str2num(dims{3}) + ...
 169                      str2num(dims{1}) * str2num(dims{3}));
 170       helpdlg(sprintf('Results:\nVolume = %.3f\nSurface = %.3f', volume, surface), 'Box Dimensions');
 171    end
 172
 173    %-----------------------------------------------
 174    disp('- test inputdlg with prescribed scalar (2 lines per text field) and defaults.');
 175    prompt = {'Width','Height','Depth'};
 176    default = {'1.1','2.2','3.3'};
 177    rc = 2;
 178    dims = inputdlg ( prompt, 'Enter Box Dimensions',rc,default );
 179    if isempty(dims)
 180       helpdlg('Canceled by user', 'Information');
 181    else
 182       volume  = str2num(dims{1}) * str2num(dims{2}) * str2num(dims{3});
 183       surface = 2 * (str2num(dims{1}) * str2num(dims{2}) + ...
 184                      str2num(dims{2}) * str2num(dims{3}) + ...
 185                      str2num(dims{1}) * str2num(dims{3}));
 186       helpdlg(sprintf('Results:\nVolume = %.3f\nSurface = %.3f', volume, surface), 'Box Dimensions');
 187    end
 188    %-----------------------------------------------
 189    disp('- test inputdlg with prescribed vector [1,2,3] for # of lines per text field and defaults.');
 190    prompt = {'Width','Height','Depth'};
 191    default = {'1.10', '2.10', '3.10'};
 192    rc = [1,2,3];  % NOTE: must be an array
 193    dims = inputdlg ( prompt, 'Enter Box Dimensions',rc,default );
 194    if isempty(dims)
 195       helpdlg('Canceled by user', 'Information');
 196    else
 197       volume  = str2num(dims{1}) * str2num(dims{2}) * str2num(dims{3});
 198       surface = 2 * (str2num(dims{1}) * str2num(dims{2}) + ...
 199                      str2num(dims{2}) * str2num(dims{3}) + ...
 200                      str2num(dims{1}) * str2num(dims{3}));
 201       helpdlg(sprintf('Results:\nVolume = %.3f\nSurface = %.3f', volume, surface), 'Box Dimensions');
 202    end
 203    %-----------------------------------------------
 204    disp('- test inputdlg with prescribed row by column sizes and defaults.');
 205    prompt = {'Width','Height','Depth'};
 206    default = {'1.10', '2.20', '3.30'};
 207    rc = [1,10; 2,20; 3,30];  % NOTE: must be an array
 208    dims = inputdlg ( prompt, 'Enter Box Dimensions',rc,default );
 209    if isempty(dims)
 210       helpdlg('Canceled by user', 'Information');
 211    else
 212       volume  = str2num(dims{1}) * str2num(dims{2}) * str2num(dims{3});
 213       surface = 2 * (str2num(dims{1}) * str2num(dims{2}) + ...
 214                      str2num(dims{2}) * str2num(dims{3}) + ...
 215                      str2num(dims{1}) * str2num(dims{3}));
 216       helpdlg(sprintf('Results:\nVolume = %.3f\nSurface = %.3f', volume, surface), 'Box Dimensions');
 217    end
 218 end
 219
 220 %% show a table of TeX symbol codes and the resulting Unicode character
 221 function test_TeXCodes
 222    %-----------------------------------------------
 223    disp('- test TeX code to Unicode translation.');
 224
 225    msgbox ( ['\\alpha  = ''\alpha ''      \\beta  = ''\beta ''      \\gamma  = ''\gamma ''', 10, ...
 226              '\\delta  = ''\delta ''      \\epsilon  = ''\epsilon ''      \\zeta  = ''\zeta ''', 10, ...
 227              '\\eta  = ''\eta ''      \\theta  = ''\theta ''      \\vartheta  = ''\vartheta ''', 10, ...
 228              '\\iota  = ''\iota ''      \\kappa  = ''\kappa ''      \\lambda  = ''\lambda ''', 10, ...
 229              '\\mu  = ''\mu ''      \\nu  = ''\nu ''      \\xi  = ''\xi ''', 10, ...
 230              '\\pi  = ''\pi ''      \\rho  = ''\rho ''      \\sigma  = ''\sigma ''', 10, ...
 231              '\\varsigma  = ''\varsigma ''      \\tau  = ''\tau ''      \\phi  = ''\phi ''', 10, ...
 232              '\\chi  = ''\chi ''      \\psi  = ''\psi ''      \\omega  = ''\omega ''', 10, ...
 233              '\\upsilon  = ''\upsilon ''      \\Gamma  = ''\Gamma ''      \\Delta  = ''\Delta ''', 10, ...
 234              '\\Theta  = ''\Theta ''      \\Lambda  = ''\Lambda ''      \\Pi  = ''\Pi ''', 10, ...
 235              '\\Xi  = ''\Xi ''      \\Sigma  = ''\Sigma ''      \\Upsilon  = ''\Upsilon ''', 10, ...
 236              '\\Phi  = ''\Phi ''      \\Psi  = ''\Psi ''      \\Omega  = ''\Omega ''', 10, ...
 237              '\\Im  = ''\Im ''      \\Re  = ''\Re ''      \\leq  = ''\leq ''', 10, ...
 238              '\\geq  = ''\geq ''      \\neq  = ''\neq ''      \\pm  = ''\pm ''', 10, ...
 239              '\\infty  = ''\infty ''      \\partial  = ''\partial ''      \\approx  = ''\approx ''', 10, ...
 240              '\\circ  = ''\circ ''      \\bullet  = ''\bullet ''      \\times  = ''\times ''', 10, ...
 241              '\\sim  = ''\sim ''      \\nabla  = ''\nabla ''      \\ldots  = ''\ldots ''', 10, ...
 242              '\\exists  = ''\exists ''      \\neg  = ''\neg ''      \\aleph  = ''\aleph ''', 10, ...
 243              '\\forall  = ''\forall ''      \\cong  = ''\cong ''      \\wp  = ''\wp ''', 10, ...
 244              '\\propto  = ''\propto ''      \\otimes  = ''\otimes ''      \\oplus  = ''\oplus ''', 10, ...
 245              '\\oslash  = ''\oslash ''      \\cap  = ''\cap ''      \\cup  = ''\cup ''', 10, ...
 246              '\\ni  = ''\ni ''      \\in  = ''\in ''      \\div  = ''\div ''', 10, ...
 247              '\\equiv  = ''\equiv ''      \\int  = ''\int ''      \\perp  = ''\perp ''', 10, ...
 248              '\\wedge  = ''\wedge ''      \\vee  = ''\vee ''      \\supseteq  = ''\supseteq ''', 10, ...
 249              '\\supset  = ''\supset ''      \\subseteq  = ''\subseteq ''      \\subset  = ''\subset ''', 10, ...
 250              '\\clubsuit  = ''\clubsuit ''      \\spadesuit  = ''\spadesuit ''      \\heartsuit  = ''\heartsuit ''', 10, ...
 251              '\\diamondsuit  = ''\diamondsuit ''      \\copyright  = ''\copyright ''      \\leftarrow  = ''\leftarrow ''', 10, ...
 252              '\\uparrow  = ''\uparrow ''      \\rightarrow  = ''\rightarrow ''      \\downarrow  = ''\downarrow ''', 10, ...
 253              '\\leftrightarrow  = ''\leftrightarrow ''      \\updownarrow  = ''\updownarrow '''], ...
 254              'TeX symbol code table Test');
 255 end