Mercurial > hg > Applications > Lite
view tk/elevator.pl @ 3:c1e5614545ff tokio start
Created directory structure
author | kono |
---|---|
date | Thu, 18 Jan 2001 23:27:24 +0900 |
parents | 1c57a78f1d98 |
children |
line wrap: on
line source
elevator(( []((upButton1 -> <>location1)), []((upButton2 -> <>location2)), []((downButton2 -> <>location2)), []((downButton3 -> <>location3)), []((destButton1 -> <>location1)), []((destButton2 -> <>location2)), []((destButton3 -> <>location3)), [](((location1,<>location3) -> ( [](location2) & @ location3))), [](((location3,<>location1) -> ( [](location2) & @ location1))), [](( (location1,~ location2,~ location3); (~ location1,location2,~ location3); (~ location1,~ location2,location3))), [](((upButton1,location1) -> (~ move , open))), [](((upButton2,location2) -> (~ move , open))), [](((downButton1,location1) -> (~ move , open))), [](((downButton2,location2) -> (~ move , open))), [](((destButton1,location1) -> (~ move , open))), [](((destButton2,location2) -> (~ move , open))), [](((destButton3,location3) -> (~ move , open))), []((move -> ~ open)), [](((openButton, ~ move) -> open)), [](((closeButton, ~ openButton) -> ~ open)) )).