smalltalk
/
osmo-st-all
Archived
1
0
Fork 0
Code Releases Activity

This commit is contained in:
Nicolas Petton 2009-07-13 08:58:14 +00:00
parent 8367ee9966
commit 80c023fa21
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
More/UI/Lightbox.st
View File

@ -41,16 +41,12 @@ Delegator subclass: Lightbox [
contents [
<category: 'building'>
^
[:e |
| div |
e build: self decoratee contents.
e div class: 'overlay'.
div := (e div)
class: 'lightbox';
yourself.
div script: self lighter.
div build: self widget]
^[:e || div |
e build: self decoratee contents.
e div class: 'overlay'.
div := e div class: 'lightbox'; yourself.
div script: self lighter.
div build: self widget]
]
lighter [