// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA - Sylvestre LEDRU
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================

// <-- Non-regression test for bug 3802 -->
//
// <-- Bugzilla URL -->
// http://bugzilla.scilab.org/show_bug.cgi?id=3802
//
// <-- Short Description -->
//    When Scilab is launched in French, Tcl creates error (when it is working 
// 	  in english)
// <-- FRENCH IMPOSED -->

if getos() <> "Darwin" then
    TclCMD="TCL_EvalStr(""destroy .t;pack [text .t];set ts [expr 12/[tk scaling]];.t conf -tabs $ts;.t cget -tabs"")";
    if execstr(TclCMD, "errcatch")<>0 then pause; end
  end