1// ============================================================================= 2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 3// Copyright (C) 2006-2008 - INRIA - Jean-Baptiste SILVY <jean-baptiste.silvy@inria.fr> 4// 5// This file is distributed under the same license as the Scilab package. 6// ============================================================================= 7// <-- TEST WITH GRAPHIC --> 8// <-- Non-regression test for bug 1787 --> 9// 10// <-- Bugzilla URL --> 11// http://bugzilla.scilab.org/show_bug.cgi?id=1787 12// 13// <-- Short Description --> 14// Scilab 4.0 RC1 15// The calling of procedure xtitle bugs when the drawing of boxes is asked. 16// 17// Jacques-Deric 18titleStr = "Scilab P0W3R" ; 19xLabelStr = "XXX" ; 20yLabelStr = "YYY" ; 21xtitle("Scilab P0W3R",'XXX','YYY',1) ; 22a = gca() ; 23my_title = a.title ; 24xLabel = a.x_label ; 25yLabel = a.y_label ; 26// check that a box is drawn around the labels 27// and that they have the rigth text 28if ( my_title.text <> titleStr ) | ( my_title.fill_mode <> 'on' ) then bugmes();quit;end 29if ( xLabel.text <> xLabelStr ) | ( xLabel.fill_mode <> 'on' ) then bugmes();quit;end 30if ( yLabel.text <> yLabelStr ) | ( yLabel.fill_mode <> 'on' ) then bugmes();quit;end 31