On Sun, 4 Feb 2001, Anton wrote:
> How about this?
> view layout [b: button 100x100 [b/size: 1x1 show b]]
Good enough. Strange that I couldn't think of that myself. Thanks!
A more general (but abusive) approach follows:
resize: function [
"Resize a face. Warning: Uses the data field."
b [object!]
/max /min
] [
lsize
] [
lsize: b/size
either lsize = 1x1 [
if (not min) and (value? 'b/data) [b/size: b/data]
] [
if not max [b/data: lsize b/size: 1x1]]
show b
]
view layout [
button "Toggle" [resize b]
b: button "Min" [resize/min b]
button "Max" [resize/max b]]
Marcus
------------------------------------
If you find that life spits on you
calm down and pretend it's raining
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
