ColorEditDialog.st
changeset 1846 65558eb9f4d3
parent 1840 57c23d1beb53
child 2224 6ec083adc6bf
equal deleted inserted replaced
1845:d6d62913c2cc 1846:65558eb9f4d3
    44 examples
    44 examples
    45 "
    45 "
    46                                                                                 [exBegin]                                      
    46                                                                                 [exBegin]                                      
    47     |editor color|
    47     |editor color|
    48 
    48 
    49     editor := ColorEditor new.
    49     editor := ColorEditDialog new.
    50     editor color:(Color green).
    50     editor color:(Color green).
    51     editor open.
    51     editor open.
    52     editor accepted ifTrue:[
    52     editor accepted ifTrue:[
    53         editor color inspect.
    53         editor color inspect.
    54     ]
    54     ]