Mercurial > hg > octave-avbm
annotate scripts/miscellaneous/tempdir.m @ 16640:3c2e457eeb72 default tip
ask for saving modified editor files if octave is closed (bug #38689)
* files-editor-tab.cc(constrctor): init new flag indicating if app is closing,
(check_file_modified): message box is modal if app is closing, no cancel,
parent of box is the editor's tab widget for a correct palcement of the box,
(conditional_close): new second arg: flag for closing app (default false),
it is stored in the tab's class wide flag
* file-editor-tab.h: second arg for conditional_close and new class wide flag
* file-editor.cc(destructor): sending close requests to all editor tabs with
flag indicating the application is closing
(add_file_editor_tab): new arg for fetab_close_request and conditional_close
* file-editor.h: new 2nd arg for fetab_close_request (closing app, def. false)
* main-window.cc(destructor): delete editor window first for showing the message
boxes for modified editor files in front of a complete gui
author | Torsten <ttl@justmail.de> |
---|---|
date | Sat, 11 May 2013 18:20:31 +0200 (2013-05-11) |
parents | d174210ce1ec |
children |
rev | line source |
---|---|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
13141
diff
changeset
|
1 ## Copyright (C) 2003-2012 John W. Eaton |
4266 | 2 ## |
3 ## This file is part of Octave. | |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
6 ## under the terms of the GNU General Public License as published by | |
7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
8 ## your option) any later version. | |
4266 | 9 ## |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
14 ## | |
15 ## You should have received a copy of the GNU General Public License | |
7016 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
4266 | 18 |
19 ## -*- texinfo -*- | |
7670
7a5dbd31eb76
Fix tempdir's documention string to point at tempdir
weber@num.uni-sb.de
parents:
7540
diff
changeset
|
20 ## @deftypefn {Function File} {@var{dir} =} tempdir () |
4350 | 21 ## Return the name of the system's directory for temporary files. |
4266 | 22 ## @end deftypefn |
23 | |
24 function dirname = tempdir () | |
25 | |
26 dirname = getenv ("TMPDIR"); | |
7430 | 27 if (isempty (dirname)) |
4266 | 28 dirname = P_tmpdir; |
29 endif | |
30 | |
7430 | 31 if (! strcmp (dirname(end), filesep)) |
10631
10df75a24242
Add filesep to end of tempdir (bug #29864).
Rik <octave@nomad.inbox5.com>
parents:
8920
diff
changeset
|
32 dirname = cstrcat (dirname, filesep); |
7430 | 33 endif |
34 | |
35 if (! isdir (dirname)) | |
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14138
diff
changeset
|
36 warning ("tempdir: '%s' does not exist or is not a directory", dirname); |
7430 | 37 endif |
38 | |
4266 | 39 endfunction |
13072
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
40 |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
41 |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
42 %!assert (ischar (tempdir ())) |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
43 |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
44 %!test |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
45 %! old_wstate = warning ("query"); |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
46 %! warning ("off"); |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
47 %! old_tmpdir = getenv ("TMPDIR"); |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
48 %! unwind_protect |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
49 %! setenv ("TMPDIR", "__MY_TMP_DIR__"); |
13141
e81ddf9cacd5
maint: untabify and remove trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
13072
diff
changeset
|
50 %! assert (tempdir (), ["__MY_TMP_DIR__" filesep()]); |
13072
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
51 %! unwind_protect_cleanup |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
52 %! setenv ("TMPDIR", old_tmpdir); |
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
53 %! warning (old_wstate); |
13141
e81ddf9cacd5
maint: untabify and remove trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
13072
diff
changeset
|
54 %! end_unwind_protect |
13072
39814ef3278b
codesprint: Add tests for tempdir
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
55 |