equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995-1998 by eXept Software AG |
4 COPYRIGHT (c) 1995-1998 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
3233 vspace := settings at: #VGridSpace ifAbsent:10. |
3235 vspace := settings at: #VGridSpace ifAbsent:10. |
3234 gridPara at:1 put:hspace; at:2 put:vspace; at:5 put:hspace; at:6 put:vspace. |
3236 gridPara at:1 put:hspace; at:2 put:vspace; at:5 put:hspace; at:6 put:vspace. |
3235 painter gridParameters:gridPara. |
3237 painter gridParameters:gridPara. |
3236 painter gridShown: (settings at: #GridShown ifAbsent:false). |
3238 painter gridShown: (settings at: #GridShown ifAbsent:false). |
3237 painter gridAlign: (settings at: #GridAlign ifAbsent:false). |
3239 painter gridAlign: (settings at: #GridAlign ifAbsent:false). |
3238 painter shown ifTrue:[painter clear]. |
3240 painter shown ifTrue:[painter clearView]. |
3239 |
3241 |
3240 cls notNil ifTrue:[ |
3242 cls notNil ifTrue:[ |
3241 self setClass:cls selector:sel. |
3243 self setClass:cls selector:sel. |
3242 |
3244 |
3243 (cls respondsTo:sel) ifTrue:[ |
3245 (cls respondsTo:sel) ifTrue:[ |
3525 bindings at:#alignToGrid put:((settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue). |
3527 bindings at:#alignToGrid put:((settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue). |
3526 bindings at:#hspace put:((gridPara at:1) asValue). |
3528 bindings at:#hspace put:((gridPara at:1) asValue). |
3527 bindings at:#vspace put:((gridPara at:2) asValue). |
3529 bindings at:#vspace put:((gridPara at:2) asValue). |
3528 |
3530 |
3529 (self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[ |
3531 (self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[ |
3530 ^ self |
3532 ^ self |
3531 ]. |
3533 ]. |
3532 |
3534 |
3533 hspace := (bindings at:#hspace) value ? 5. |
3535 hspace := (bindings at:#hspace) value ? 5. |
3534 vspace := (bindings at:#vspace) value ? 5. |
3536 vspace := (bindings at:#vspace) value ? 5. |
3535 |
3537 |
3546 |
3548 |
3547 settings at: #GridShown put: (bindings at:#showGrid) value. |
3549 settings at: #GridShown put: (bindings at:#showGrid) value. |
3548 settings at: #GridAlign put: (bindings at:#alignToGrid) value. |
3550 settings at: #GridAlign put: (bindings at:#alignToGrid) value. |
3549 settings at: #HGridSpace put: hspace. |
3551 settings at: #HGridSpace put: hspace. |
3550 settings at: #VGridSpace put: vspace. |
3552 settings at: #VGridSpace put: vspace. |
3551 painter clear. |
3553 painter clearView. |
3552 |
3554 |
3553 "Modified: / 4.2.1999 / 15:36:34 / cg" |
3555 "Modified: / 4.2.1999 / 15:36:34 / cg" |
3554 ! |
3556 ! |
3555 |
3557 |
3556 doGenerateAspectMethodFor |
3558 doGenerateAspectMethodFor |