Mercurial > octave-nkf

comparison libinterp/interpfcn/variables.cc @ 16523:62d8aaf6ba8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
force update of GUI workspace viewer from clear function * variables.cc (Fclear): Call octave_link::clear_workspace and octave_link::set_workspace.
author John W. Eaton <jwe@octave.org>
date Tue, 16 Apr 2013 15:05:17 -0400
parents 302157614308
children 6a8e63dadfad
comparison
equal deleted inserted replaced
16522:bfff338c56d1 16523:62d8aaf6ba8f
47 #include "gripes.h" 47 #include "gripes.h"
48 #include "help.h" 48 #include "help.h"
49 #include "input.h" 49 #include "input.h"
50 #include "lex.h" 50 #include "lex.h"
51 #include "load-path.h" 51 #include "load-path.h"
52 #include "octave-link.h"
52 #include "oct-map.h" 53 #include "oct-map.h"
53 #include "oct-obj.h" 54 #include "oct-obj.h"
54 #include "ov.h" 55 #include "ov.h"
55 #include "ov-class.h" 56 #include "ov-class.h"
56 #include "ov-usr-fcn.h" 57 #include "ov-usr-fcn.h"
2340 { 2341 {
2341 if (argc == 1) 2342 if (argc == 1)
2342 { 2343 {
2343 do_clear_globals (argv, argc, true); 2344 do_clear_globals (argv, argc, true);
2344 do_clear_variables (argv, argc, true); 2345 do_clear_variables (argv, argc, true);
2346
2347 octave_link::clear_workspace ();
2345 } 2348 }
2346 else 2349 else
2347 { 2350 {
2348 int idx = 0; 2351 int idx = 0;
2349 2352
2451 else 2454 else
2452 { 2455 {
2453 do_clear_symbols (argv, argc, idx, exclusive); 2456 do_clear_symbols (argv, argc, idx, exclusive);
2454 } 2457 }
2455 } 2458 }
2459
2460 octave_link::set_workspace ((symbol_table::current_scope ()
2461 == symbol_table::top_scope ()),
2462 symbol_table::workspace_info ());
2456 } 2463 }
2457 } 2464 }
2458 } 2465 }
2459 2466
2460 return retval; 2467 return retval;