← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to demos/tk/tk.dem

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
demos/tk/tk.dem
 
1
// Copyright INRIA
 
2
mode(-1)
 
3
oldln=lines();
 
4
lines(0)
 
5
deff('[]=demoex(num)','execstr(demolist(num,2))')
 
6
tkpath=SCI+'/demos/tk/'
 
7
if MSDOS then tkpath=strsubst(tkpath,'/','\'),end
 
8
 
 
9
demolist=[
 
10
'Color','exec(tkpath+''tcolor.sce'')';
 
11
'Puzzle','exec(tkpath+''puzzle.sce'')';
 
12
'Scroll','exec(tkpath+''scroll.sce'')';
 
13
'Scale','exec(tkpath+''scale.sce'')';
 
14
]
 
15
while %t then
 
16
  num=x_choose(demolist(:,1),'demo of TCL/TK interface');
 
17
  if num==0 then 
 
18
     lines(oldln(1))
 
19
     return
 
20
  else
 
21
     demoex(num)
 
22
 
 
23
  end,
 
24
end