Mercurial > octave-nkf
view test/null-assign.tst @ 20086:10600b2dd3c1
make units other than data work for axes labels and title (bug #35857)
* graphics.in.h, graphics.cc (base_property::invalidate): New function.
(axes::properties::set_defaults): If mode is not "reset", invalidate
label and title handles before recreating them. Don't notify toolkit
when recreating label and title handles. Update label and title
positions after they are created.
(convert_label_position): New static function.
(axes::properties::update_xlabel_position,
axes::properties::update_ylabel_position,
axes::properties::update_zlabel_position,
axes::properties::update_title_position): Return early if object
is not valid. Call convert_label_position to handle units other than
"data".
(text::properties::update_units): Preserve "auto" positionmode.
(gh_manager::do_make_graphics_handle): Call override_defaults here for
newly created objects. If creating an axes object, also call
override_defaults for the axes label and title objects.
(graphics_object::override_defaults): New function.
(figure::figure, axes::axes, line::line, text::text, image::image,
patch::patch, surface::surface, hggroup::hggroup, uimenu::uimenu,
uicontextmenu::uicontextmenu, uicontrol::uicontrol, uipanel::uipanel,
uitoolbar::uitoolbar, uipushtool::uipushtool,
uitoggletool::uitoggletool):
Don't call override_defaults from constructor.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 08 Apr 2015 16:46:10 -0400 |
parents | 4197fc428c7d |
children |
line wrap: on
line source
## Copyright (C) 2008-2015 Jaroslav Hajek ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. %!test %! a = 1:3; a(:) = []; assert (size (a), [0, 0]) %!test %! a = 1:3; a(1:3) = []; assert (size (a), [1, 0]) %!test %! a = (1:3).'; a(1:3) = []; assert (size (a), [0, 1]) %!test %! a = ones (3); a(:,:) = []; assert (size (a), [0, 3]) %!test %! a = ones (3); a(1:3,:) = []; assert (size (a), [0, 3]) %!test %! a = ones (3); a(:,1:3) = []; assert (size (a), [3, 0]) %!test %! a = ones (3); fail ("a(1:2,1:2) = []", ".*"); %!test %! a = ones (3); fail ("a(1:3,1:3) = []", ".*"); ## null strings should delete. [,] and [;] should delete. %!test %! a = ones (3); a(1:2,:) = [,]; assert (size (a), [1,3]) %!test %! a = ones (3); a(1:2,:) = [;]; assert (size (a), [1,3]) %!test %! a = ones (3); a(1:2,:) = ''; assert (size (a), [1,3]) %!test %! a = ones (3); a(1:2,:) = ""; assert (size (a), [1,3]) ## null matrix stored anywhere should lose its special status %!test %! a = ones (3); b = []; fail ("a(:,1:3) = b", ".") %!test %! a = ones (3); b{1} = []; fail ("a(:,1:3) = b{1}", ".") %!test %! a = ones (3); b.x = []; fail ("a(:,1:3) = b.x", ".") ## filtering a null matrix through a function should not delete %!test %! a = ones (3); fail ("a(:,1:3) = double ([])") ## subsasgn should work the same way %!test %! a = ones (3); a = subsasgn (a, substruct ('()', {':',1:2}), []); assert (size (a), [3,1]) %!test %! a = ones (3); b = []; fail ("subsasgn (a, substruct ('()', {':',1:2}), b)", ".") %!test %! classes = {@int8, @int16, @int32, @int64, ... %! @uint8, @uint16, @uint32, @uint64, ... %! @single, @double, @logical}; %! for i = 1:numel (classes) %! cls = classes{i}; %! x = cls ([1, 2, 3]); %! cls_nm = class (x); %! x(2) = []; %! assert (x, cls ([1, 3])); %! assert (class (x), cls_nm); %! x(2) = []; %! assert (x, cls (1)); %! assert (class (x), cls_nm); %! x(1) = []; %! assert (x, cls (zeros (1, 0))); %! assert (class (x), cls_nm); %! endfor %! for i = 1:numel (classes) %! cls = classes{i}; %! x = cls ([1, 2, 3]); %! cls_nm = class (x); %! x(2) = ''; %! assert (x, cls ([1, 3])); %! assert (class (x), cls_nm); %! x(2) = ''; %! assert (x, cls (1)); %! assert (class (x), cls_nm); %! x(1) = ''; %! assert (x, cls (zeros (1, 0))); %! assert (class (x), cls_nm); %! endfor %! for i = 1:numel (classes) %! cls = classes{i}; %! x = cls ([1, 2, 3]); %! cls_nm = class (x); %! x(2) = ""; %! assert (x, cls ([1, 3])); %! assert (class (x), cls_nm); %! x(2) = ""; %! assert (x, cls (1)); %! assert (class (x), cls_nm); %! x(1) = ""; %! assert (x, cls (zeros (1, 0))); %! assert (class (x), cls_nm); %! endfor