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