*Bug #3255 fixed - The cursor of slider uicontrol is not displayed if the slider... 37/19137/3
Adeline CARNIS [Mon, 27 Feb 2017 13:54:45 +0000 (14:54 +0100)]
Change-Id: I621b10cd7cb6719b17981228637904487a9e1bbb

scilab/CHANGES.md
scilab/modules/gui/tests/nonreg_tests/bug_3256.tst [new file with mode: 0644]

index 8e25b9a..376fb7c 100644 (file)
@@ -385,6 +385,7 @@ the [development mailing list](dev@lists.scilab.org) for a particular toolbox.
 
 ### Bugs fixed in 6.0.1:
 * [#2441](http://bugzilla.scilab.org/show_bug.cgi?id=2441): `%onprompt()` could be defined only at the top execution level.
+* [#3256](http://bugzilla.scilab.org/show_bug.cgi?id=3256): The cursor of slider uicontrol is not displayed if the slider step is not an integer value.
 * [#4276](http://bugzilla.scilab.org/show_bug.cgi?id=4276): `strsubst` replaced the first occurence in regex mode.
 * [#5248](http://bugzilla.scilab.org/show_bug.cgi?id=5248): The graphical entity picker was out of work.
 * [#5278](http://bugzilla.scilab.org/show_bug.cgi?id=5278): obsolete `xset()` was still used in scripts, macros, tests and help pages.
diff --git a/scilab/modules/gui/tests/nonreg_tests/bug_3256.tst b/scilab/modules/gui/tests/nonreg_tests/bug_3256.tst
new file mode 100644 (file)
index 0000000..725352a
--- /dev/null
@@ -0,0 +1,82 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2016 - Scilab Enterprises - Adeline CARNIS
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- TEST WITH GRAPHIC -->
+// <-- INTERACTIVE TEST -->
+//
+// <-- Non-regression test for bug 3256 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/3256
+//
+// <-- Short Description -->
+// The cursor of slider uicontrol is not displayed if the slider step is not an integer value.
+
+// Figure creation
+// =====================================================================
+
+my_figure = figure( ...
+"Position"        , [30 50 600 400], ...
+"BackgroundColor" , [1 1 1]);
+
+
+// Test 1
+// =====================================================================
+
+my_ini_value_1 = 5;
+
+function update_text_1()
+    set(findobj("tag", "my_text_1"),"string",string(get(gcbo,"Value")));
+endfunction
+
+my_slider_1 = uicontrol( ...
+"parent"              , my_figure                 , ...
+"style"               , "slider"                  , ...
+"Min"                 , 0                         , ...
+"Max"                 , 20                        , ...
+"Value"               , my_ini_value_1            , ...
+"SliderStep"          , [1 2]                     , ...
+"position"            , [ 10 200 400 20 ]         , ...
+"callback"            , "update_text_1()"         );
+
+my_text_1 = uicontrol( ...
+"parent"             , my_figure                  , ...
+"position"           , [500 200 60 20]            , ...
+"Style"              , "text"                     , ...
+"String"             , string(my_ini_value_1)     , ...
+"tag"                , "my_text_1"               );
+
+
+
+// Test 2
+// =====================================================================
+
+my_ini_value_2 = 1;
+
+function update_text_2()
+    set(findobj("tag", "my_text_2"),"string",string(get(gcbo,"Value")));
+endfunction
+
+my_slider_2 = uicontrol( ...
+"parent"              , my_figure                  , ...
+"style"               , "slider"                   , ...
+"Min"                 , 0                          , ...
+"Max"                 , 2                          , ...
+"Value"               , my_ini_value_2             , ...
+"SliderStep"          , [0.1 0.2]                  , ...
+"position"            , [ 10 100 400 20 ]          , ...
+"callback"            , "update_text_2()"          );
+
+my_text_2 = uicontrol( ...
+"parent"              , my_figure                  , ...
+"position"            , [500 100 60 20]            , ...
+"Style"               , "text"                     , ...
+"String"              , string(my_ini_value_2)     , ...
+"tag"                 , "my_text_2"               );
+
+// Move the second slider and check that it is already displayed
+