← Back to branch summary

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

« back to all changes in this revision

Viewing changes to macros/scicos/do_delete_region.sci

  • 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:
macros/scicos/do_delete_region.sci
 
1
function [scs_m,needcompile]=do_delete_region(scs_m,needcompile)
 
2
// Copyright INRIA
 
3
xinfo('Click, drag to select region and click to fix the selection')
 
4
 
 
5
[btn,xc,yc,win,Cmenu]=cosclick()
 
6
if Cmenu<>[] then
 
7
  Cmenu=resume(Cmenu)
 
8
end
 
9
disablemenus()
 
10
[ox,oy,w,h,ok]=get_rectangle(xc,yc)
 
11
if ~ok then  enablemenus();return;end
 
12
[del,keep]=get_blocks_in_rect(scs_m,ox,oy,w,h)
 
13
 
 
14
modified=del<>[]
 
15
if modified then
 
16
  needreplay=replayifnecessary()
 
17
  scs_m_save=scs_m,nc_save=needcompile
 
18
  [scs_m,DEL,DELL]=do_delete1(scs_m,del,%t)
 
19
  needcompile=4
 
20
  enablemenus()
 
21
  [scs_m_save,nc_save,enable_undo,edited,needreplay]=resume(scs_m_save,nc_save,%t,%t,needreplay)
 
22
end
 
23
enablemenus()
 
24
 
 
25