DataSetBuilder.st
changeset 1771 1bb15bba99ee
parent 1757 c1b5a55649c9
child 1818 338ca80609c7
equal deleted inserted replaced
1770:9000adb21f79 1771:1bb15bba99ee
  2199 generateBackgroundSelectorIn:aClass
  2199 generateBackgroundSelectorIn:aClass
  2200     "generate code for #backgroundSelector"
  2200     "generate code for #backgroundSelector"
  2201 
  2201 
  2202     |sel catg code bCode|
  2202     |sel catg code bCode|
  2203 
  2203 
  2204     catg := 'accessing look' asSymbol.
  2204     catg := #'accessing look'.
  2205     code :=   '\'
  2205     code :=   '\'
  2206             , '    "automatically generated by DataSetBuilder ..."\'
  2206             , '    "automatically generated by DataSetBuilder ..."\'
  2207             , '\'
  2207             , '\'
  2208             , '    "specific background color for a cell"\'
  2208             , '    "specific background color for a cell"\'
  2209             , '\'
  2209             , '\'
  2223 generateChoicesIn:aClass
  2223 generateChoicesIn:aClass
  2224     "generate code for #choices"
  2224     "generate code for #choices"
  2225 
  2225 
  2226     |sel catg code edt|
  2226     |sel catg code edt|
  2227 
  2227 
  2228     catg := 'accessing menu' asSymbol.
  2228     catg := #'accessing menu'.
  2229     code :=   '\'
  2229     code :=   '\'
  2230             , '    "automatically generated by DataSetBuilder ..."\'
  2230             , '    "automatically generated by DataSetBuilder ..."\'
  2231             , '\'
  2231             , '\'
  2232             , '    "get choices for visual editor; (a list of labels)..."\'
  2232             , '    "get choices for visual editor; (a list of labels)..."\'
  2233             , '\'
  2233             , '\'
  2250 generateDoubleClickSelectorIn:aClass
  2250 generateDoubleClickSelectorIn:aClass
  2251     "generate code for #foregroundSelector"
  2251     "generate code for #foregroundSelector"
  2252 
  2252 
  2253     |sel catg code bCode|
  2253     |sel catg code bCode|
  2254 
  2254 
  2255     catg := 'accessing action' asSymbol.
  2255     catg := #'accessing action'.
  2256     code :=   '\'
  2256     code :=   '\'
  2257             , '    "automatically generated by DataSetBuilder ..."\'
  2257             , '    "automatically generated by DataSetBuilder ..."\'
  2258             , '\'
  2258             , '\'
  2259             , '    "specific selector to be called on double click"\'
  2259             , '    "specific selector to be called on double click"\'
  2260             , '\'
  2260             , '\'
  2275 generateForegroundSelectorIn:aClass
  2275 generateForegroundSelectorIn:aClass
  2276     "generate code for #foregroundSelector
  2276     "generate code for #foregroundSelector
  2277     "
  2277     "
  2278     |sel catg code bCode|
  2278     |sel catg code bCode|
  2279 
  2279 
  2280     catg := 'accessing look' asSymbol.
  2280     catg := #'accessing look'.
  2281     code :=   '\'
  2281     code :=   '\'
  2282             , '    "automatically generated by DataSetBuilder ..."\'
  2282             , '    "automatically generated by DataSetBuilder ..."\'
  2283             , '\'
  2283             , '\'
  2284             , '    "specific foreground color for a cell"\'
  2284             , '    "specific foreground color for a cell"\'
  2285             , '\'
  2285             , '\'
  2300 generateMenuIn:aClass
  2300 generateMenuIn:aClass
  2301     "generate code for #menu"
  2301     "generate code for #menu"
  2302 
  2302 
  2303     |sel catg code|
  2303     |sel catg code|
  2304 
  2304 
  2305     catg := 'accessing menu' asSymbol.
  2305     catg := #'accessing menu'.
  2306     code :=   '\'
  2306     code :=   '\'
  2307             , '    "automatically generated by DataSetBuilder ..."\'
  2307             , '    "automatically generated by DataSetBuilder ..."\'
  2308             , '\'
  2308             , '\'
  2309             , '    "get middleButton menu for selected cell in column"\'
  2309             , '    "get middleButton menu for selected cell in column"\'
  2310             , '\'
  2310             , '\'
  2326 generatePrintSelectorIn:aClass
  2326 generatePrintSelectorIn:aClass
  2327     "generate code for #printSelector"
  2327     "generate code for #printSelector"
  2328 
  2328 
  2329     |sel catg code|
  2329     |sel catg code|
  2330 
  2330 
  2331     catg := 'accessing' asSymbol.
  2331     catg := #'accessing'.
  2332     code :=   '\'
  2332     code :=   '\'
  2333             , '    "automatically generated by DataSetBuilder ..."\'
  2333             , '    "automatically generated by DataSetBuilder ..."\'
  2334             , '\'
  2334             , '\'
  2335             , '    "get drawable image or text on a gc"\'
  2335             , '    "get drawable image or text on a gc"\'
  2336             , '\'
  2336             , '\'
  2362 generateReadSelectorIn:aClass
  2362 generateReadSelectorIn:aClass
  2363     "generate code for #readSelector"
  2363     "generate code for #readSelector"
  2364 
  2364 
  2365     |sel catg code bCode|
  2365     |sel catg code bCode|
  2366 
  2366 
  2367     catg := 'accessing' asSymbol.
  2367     catg := #'accessing'.
  2368     code :=   '\'
  2368     code :=   '\'
  2369             , '    "automatically generated by DataSetBuilder ..."\'
  2369             , '    "automatically generated by DataSetBuilder ..."\'
  2370             , '\'
  2370             , '\'
  2371             , '    "get value"\'
  2371             , '    "get value"\'
  2372             , '\'
  2372             , '\'
  2400 generateRowSeparatorSelectorIn:aClass
  2400 generateRowSeparatorSelectorIn:aClass
  2401     "generate code for #rowSeparatorSelector"
  2401     "generate code for #rowSeparatorSelector"
  2402 
  2402 
  2403     |sel catg code bCode|
  2403     |sel catg code bCode|
  2404 
  2404 
  2405     catg := 'accessing look' asSymbol.
  2405     catg := #'accessing look'.
  2406     code :=   '\'
  2406     code :=   '\'
  2407             , '    "automatically generated by DataSetBuilder ..."\'
  2407             , '    "automatically generated by DataSetBuilder ..."\'
  2408             , '\'
  2408             , '\'
  2409             , '    "specific row separator visibility for a cell"\'
  2409             , '    "specific row separator visibility for a cell"\'
  2410             , '\'
  2410             , '\'
  2424 generateSelectSelectorIn:aClass
  2424 generateSelectSelectorIn:aClass
  2425     "generate code for #selectSelector
  2425     "generate code for #selectSelector
  2426     "
  2426     "
  2427     |sel catg code bCode|
  2427     |sel catg code bCode|
  2428 
  2428 
  2429     catg := 'accessing selection' asSymbol.
  2429     catg := #'accessing selection'.
  2430     code :=   '\'
  2430     code :=   '\'
  2431             , '    "automatically generated by DataSetBuilder ..."\'
  2431             , '    "automatically generated by DataSetBuilder ..."\'
  2432             , '\'
  2432             , '\'
  2433             , '    "can select cell in column"\'
  2433             , '    "can select cell in column"\'
  2434             , '\'
  2434             , '\'
  2454 generateShowComboFieldSelectorIn:aClass
  2454 generateShowComboFieldSelectorIn:aClass
  2455     "generate code for #showComboFieldSelector
  2455     "generate code for #showComboFieldSelector
  2456     "
  2456     "
  2457     |sel catg code bCode edt state|
  2457     |sel catg code bCode edt state|
  2458 
  2458 
  2459     catg := 'accessing menu' asSymbol.
  2459     catg := #'accessing menu'.
  2460     code :=   '\'
  2460     code :=   '\'
  2461             , '    "automatically generated by DataSetBuilder ..."\'
  2461             , '    "automatically generated by DataSetBuilder ..."\'
  2462             , '\'
  2462             , '\'
  2463             , '    "open an editField on a combo list or box"\'
  2463             , '    "open an editField on a combo list or box"\'
  2464             , '\'
  2464             , '\'
  2483 generateWriteSelectorIn:aClass
  2483 generateWriteSelectorIn:aClass
  2484     "generate code for #writeSelector"
  2484     "generate code for #writeSelector"
  2485 
  2485 
  2486     |sel catg code bCode sz|
  2486     |sel catg code bCode sz|
  2487 
  2487 
  2488     catg := 'accessing' asSymbol.
  2488     catg := #'accessing'.
  2489     code :=   'aValue\'
  2489     code :=   'aValue\'
  2490             , '    "automatically generated by DataSetBuilder ..."\'
  2490             , '    "automatically generated by DataSetBuilder ..."\'
  2491             , '\'
  2491             , '\'
  2492             , '    "set value"\'
  2492             , '    "set value"\'
  2493             .
  2493             .