DataSetBuilder.st
changeset 1836 1bb281ec7437
parent 1825 58bcec422efd
child 1841 fb363ce089de
equal deleted inserted replaced
1835:c6b3c9ee5207 1836:1bb281ec7437
  2161 
  2161 
  2162 
  2162 
  2163 
  2163 
  2164 !
  2164 !
  2165 
  2165 
       
  2166 menuEdit
       
  2167     "redefined to access my menu and not of the UIPainter
       
  2168     "
       
  2169     ^ self class menuEdit
       
  2170 !
       
  2171 
  2166 rendererTypeList
  2172 rendererTypeList
  2167     "generate list of supported renderer types"
  2173     "generate list of supported renderer types"
  2168 
  2174 
  2169     |list|
  2175     |list|
  2170 
  2176 
  2703 !
  2709 !
  2704 
  2710 
  2705 updateInputFields
  2711 updateInputFields
  2706     "reloads item value into input fields"
  2712     "reloads item value into input fields"
  2707 
  2713 
  2708     |column|
  2714     |column notifyValue|
  2709 
  2715 
  2710     (column := self selectedColumn) isNil ifTrue:[
  2716     (column := self selectedColumn) isNil ifTrue:[
  2711         self tabModel value:0.
  2717         self tabModel value:0.
  2712     ] ifFalse:[
  2718     ] ifFalse:[
  2713         aspects do:[:anAspect| anAspect value:'' ].
  2719         notifyValue := nil.     "/ old: '' -> problems with Toggles (asBoolean)
       
  2720 
       
  2721         aspects do:[:anAspect| anAspect value:notifyValue ].
  2714         aspects keysAndValuesDo:[:aKey :aModel |
  2722         aspects keysAndValuesDo:[:aKey :aModel |
  2715             aModel value:(column perform:aKey) withoutNotifying: self
  2723             aModel value:(column perform:aKey) withoutNotifying: self
  2716         ].
  2724         ].
  2717 
  2725 
  2718 "/ REPALCE nil by empty string for specific inputFields without an adapter
  2726 "/ REPALCE nil by empty string for specific inputFields without an adapter
  2719         #( #labelActionArgument #formatString #id ) do:[:aKey| |model|
  2727         #( #labelActionArgument #formatString #id ) do:[:aKey| |model|
  2720             model := aspects at:aKey.
  2728             model := aspects at:aKey.
  2721             model value isNil ifTrue:[model value:'' withoutNotifying: self]
  2729             model value isNil ifTrue:[model value:notifyValue withoutNotifying: self]
  2722         ].
  2730         ].
  2723 
  2731 
  2724         tabSelection == 0 ifTrue:[self tabModel value:1].
  2732         tabSelection == 0 ifTrue:[self tabModel value:1].
  2725     ].
  2733     ].
  2726 ! !
  2734 ! !