← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to macros/scicos/do_tild.sci

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
macros/scicos/do_tild.sci
1
 
function scs_m=do_tild(scs_m)
 
1
function [%pt,scs_m]=do_tild(%pt,scs_m)
2
2
// Copyright INRIA
3
3
while %t
4
4
  if %pt==[] then
5
 
    [btn,xc,yc,win,Cmenu]=cosclick()
 
5
    [btn,%pt,win,Cmenu]=cosclick()
6
6
    if Cmenu<>[] then
7
 
      %pt=[]
8
 
      [Cmenu]=resume(Cmenu)
9
 
    elseif btn>31 then
10
 
      Cmenu=%tableau(min(100,btn-31));%pt=[xc;yc];
11
 
      if Cmenu==emptystr() then Cmenu=[];%pt=[];end
12
7
      [%win,Cmenu]=resume(win,Cmenu)
13
8
    end
14
9
  else
15
 
    xc=%pt(1);yc=%pt(2);win=%win;%pt=[]
16
 
  end    
 
10
    win=%win;
 
11
  end
 
12
  xc=%pt(1);yc=%pt(2);%pt=[]
17
13
  k=getblock(scs_m,[xc;yc])
18
14
  if k<>[] then break,end
19
15
end
21
17
  message('Connected block can''t be tilded')
22
18
  return
23
19
end
24
 
o=scs_m(k)
 
20
o=scs_m.objs(k)
25
21
drawobj(o)
26
22
if pixmap then xset('wshow'),end
27
 
geom=o(2);geom(3)=~geom(3);o(2)=geom;
 
23
//geom=o(2);geom(3)=~geom(3);o(2)=geom;
 
24
geom=o.graphics;geom.flip=~geom.flip;o.graphics=geom;
28
25
drawobj(o)
29
26
scs_m_save=scs_m
30
 
scs_m(k)=o
 
27
scs_m.objs(k)=o
31
28
[scs_m_save,enable_undo,edited]=resume(scs_m_save,%t,%t)
32
 
 
33
 
 
 
29
endfunction