repo.or.cz
/
netwalk.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Mon Jun 3 15:21:17 PDT 2002
[netwalk.git]
/
command_close_current.e
blob
41ffbf600cc1f076de4ae0c8cf41607ab6937b2b
1
class
COMMAND_CLOSE_CURRENT
2
inherit
COMMAND
3
creation
make
4
feature
5
main
:
NETWALK
6
7
make
(
m
:
NETWALK
)
is
8
do
9
main
:=
m
10
end
11
12
execute
is
13
do
14
main
.
close_current_window
15
end
16
end