UIPainter.st
changeset 1021 8c1deb0281c7
parent 984 f1b6d6b68510
child 1027 4121bb68706b
equal deleted inserted replaced
1020:dcfbf3acb037 1021:8c1deb0281c7
   848       )
   848       )
   849 
   849 
   850     "Modified: / 5.9.1998 / 17:42:12 / cg"
   850     "Modified: / 5.9.1998 / 17:42:12 / cg"
   851 ! !
   851 ! !
   852 
   852 
   853 
       
   854 !UIPainter class methodsFor:'menu specs'!
   853 !UIPainter class methodsFor:'menu specs'!
   855 
   854 
   856 menu
   855 menu
   857     "This resource specification was automatically generated
   856     "This resource specification was automatically generated
   858      by the MenuEditor of ST/X."
   857      by the MenuEditor of ST/X."
  3106     |hspace vspace bindings painter gridPara settings|
  3105     |hspace vspace bindings painter gridPara settings|
  3107 
  3106 
  3108     painter  := self painter.
  3107     painter  := self painter.
  3109     bindings := IdentityDictionary new.
  3108     bindings := IdentityDictionary new.
  3110     gridPara := painter gridParameters copy.
  3109     gridPara := painter gridParameters copy.
  3111 
  3110     settings := self class settings.
  3112     bindings at:#showGrid    put:((self class settings at: #GridShown ifAbsent: [painter gridShown]) asValue).
  3111 
  3113     bindings at:#alignToGrid put:((self class settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue).
  3112     bindings at:#showGrid    put:((settings at: #GridShown ifAbsent: [painter gridShown]) asValue).
       
  3113     bindings at:#alignToGrid put:((settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue).
  3114     bindings at:#hspace      put:((gridPara at:1) asValue).
  3114     bindings at:#hspace      put:((gridPara at:1) asValue).
  3115     bindings at:#vspace      put:((gridPara at:2) asValue).
  3115     bindings at:#vspace      put:((gridPara at:2) asValue).
  3116 
  3116 
  3117     (self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[
  3117     (self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[
  3118 	^ self
  3118         ^ self
  3119     ].
  3119     ].
  3120 
  3120 
  3121     hspace := (bindings at:#hspace) value ? 5.
  3121     hspace := (bindings at:#hspace) value ? 5.
  3122     vspace := (bindings at:#vspace) value ? 5.
  3122     vspace := (bindings at:#vspace) value ? 5.
  3123 
  3123 
  3129     painter gridShown:false. 
  3129     painter gridShown:false. 
  3130     painter gridAlign:false. 
  3130     painter gridAlign:false. 
  3131     painter gridParameters:gridPara.
  3131     painter gridParameters:gridPara.
  3132     painter gridAlign:(bindings at:#alignToGrid) value.
  3132     painter gridAlign:(bindings at:#alignToGrid) value.
  3133     painter gridShown:(bindings at:#showGrid) value.
  3133     painter gridShown:(bindings at:#showGrid) value.
  3134     settings := self class settings.
  3134 
  3135     settings at: #GridShown  put: (bindings at:#showGrid) value.
  3135     settings at: #GridShown  put: (bindings at:#showGrid) value.
  3136     settings at: #GridAlign  put: (bindings at:#alignToGrid) value.
  3136     settings at: #GridAlign  put: (bindings at:#alignToGrid) value.
  3137     settings at: #HGridSpace put: hspace.
  3137     settings at: #HGridSpace put: hspace.
  3138     settings at: #VGridSpace put: vspace.
  3138     settings at: #VGridSpace put: vspace.
  3139     painter clear.
  3139     painter clear.
  3140 
  3140 
       
  3141     "Modified: / 4.2.1999 / 15:36:34 / cg"
  3141 !
  3142 !
  3142 
  3143 
  3143 doGenerateAspectMethods
  3144 doGenerateAspectMethods
  3144     "generates aspect and action methods for the application class"
  3145     "generates aspect and action methods for the application class"
  3145 
  3146