}
}
method click {x y} {
- run_command [$self.list get @$x,$y]
+ $self run_command [$self.list get @$x,$y]
}
method run_command {item} {
if [string length $slot(command)] {
}
}
method remove {} {
- $slot(main) destroy_menu $slot(title)
+ $slot(main) delete_menu $slot(title)
+ $slot(main) delete_list $self
object_delete $self
}
method edit_filter {} {