UIPainter.st
changeset 735 29c8681ce68d
parent 729 12f157d5e017
child 743 d58a3e7e39d5
equal deleted inserted replaced
734:9fdcc26c458f 735:29c8681ce68d
   330     ].
   330     ].
   331     ^ stream contents
   331     ^ stream contents
   332 
   332 
   333     "Modified: / 1.2.1998 / 14:42:56 / cg"
   333     "Modified: / 1.2.1998 / 14:42:56 / cg"
   334 ! !
   334 ! !
       
   335 
       
   336 !UIPainter class methodsFor:'image specs'!
       
   337 
       
   338 iconAlignB
       
   339     "Generated by the Image Editor"
       
   340     "
       
   341     ImageEditor openOnClass:self andSelector:#iconAlignB
       
   342     "
       
   343 
       
   344     <resource: #image>
       
   345 
       
   346     ^Icon
       
   347         constantNamed:#'UIPainter iconAlignB'
       
   348         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@G@@@@@@@G@E@@@@@G@G@@@@@G@G@@@@@G@G@@@E@G@G@@@G@G@G@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G C@G @@G'' @G'' @G'' @G'' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' G'''' O??0O??0@@@@@@@C@@@@') ; yourself); yourself]!
       
   349 
       
   350 iconAlignL
       
   351     "Generated by the Image Editor"
       
   352     "
       
   353     ImageEditor openOnClass:self andSelector:#iconAlignL
       
   354     "
       
   355 
       
   356     <resource: #image>
       
   357 
       
   358     ^Icon
       
   359         constantNamed:#'UIPainter iconAlignL'
       
   360         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@@(@@@@@@@(UU@@@@@(_?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@F@@@G?? G?? G?? G?? F@@@F@@@G? @G? @G? @G? @F@@@@@@@@@@@') ; yourself); yourself]!
       
   361 
       
   362 iconAlignLR
       
   363     "Generated by the Image Editor"
       
   364     "
       
   365     ImageEditor openOnClass:self andSelector:#iconAlignLR
       
   366     "
       
   367 
       
   368     <resource: #image>
       
   369 
       
   370     ^Icon
       
   371         constantNamed:#'UIPainter iconAlignLR'
       
   372         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(_??2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??2 @@(@@@B E@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A F@A G?? G?? G?? G?? F@A F@A G?? G?? G?; G?? F@A @@@@@@@@') ; yourself); yourself]!
       
   373 
       
   374 iconAlignR
       
   375     "Generated by the Image Editor"
       
   376     "
       
   377     ImageEditor openOnClass:self andSelector:#iconAlignR
       
   378     "
       
   379 
       
   380     <resource: #image>
       
   381 
       
   382     ^Icon
       
   383         constantNamed:#'UIPainter iconAlignR'
       
   384         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@_??2 @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUUR @@G???2 @@@@@@B E@@@@@B @@@@@@B @@@@@@B @@@@EUR @@@@G?2 @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@A G?? G?? G?? G?? @@A @@A @G? @G? @G? @G? @@A @@@@@@@@') ; yourself); yourself]!
       
   385 
       
   386 iconAlignT
       
   387     "Generated by the Image Editor"
       
   388     "
       
   389     ImageEditor openOnClass:self andSelector:#iconAlignT
       
   390     "
       
   391 
       
   392     <resource: #image>
       
   393 
       
   394     ^Icon
       
   395         constantNamed:#'UIPainter iconAlignT'
       
   396         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@G@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@@@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' @G'' @G'' @G'' @G'' @G @@G C@@@@@@@@@@@@') ; yourself); yourself]!
       
   397 
       
   398 iconAlignTB
       
   399     "Generated by the Image Editor"
       
   400     "
       
   401     ImageEditor openOnClass:self andSelector:#iconAlignTB
       
   402     "
       
   403 
       
   404     <resource: #image>
       
   405 
       
   406     ^Icon
       
   407         constantNamed:#'UIPainter iconAlignTB'
       
   408         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@A@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@G@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@H@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@@@G@G@D@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@H@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G''''!!G'''' G'''' G'''' G'''' G'''' G'''' G''''!!G''''!!G''& G'''' O??0O??2@@@@@@@@@@@@') ; yourself); yourself]! !
   335 
   409 
   336 !UIPainter class methodsFor:'interface specs'!
   410 !UIPainter class methodsFor:'interface specs'!
   337 
   411 
   338 gridParametersSpec
   412 gridParametersSpec
   339     "this window spec was automatically generated by the ST/X UIPainter"
   413     "this window spec was automatically generated by the ST/X UIPainter"
   537      
   611      
   538        #(#FullSpec
   612        #(#FullSpec
   539           #window: 
   613           #window: 
   540            #(#WindowSpec
   614            #(#WindowSpec
   541               #name: 'GUI Painter'
   615               #name: 'GUI Painter'
   542               #layout: #(#LayoutFrame 282 0 281 0 834 0 818 0)
   616               #layout: #(#LayoutFrame 453 0 344 0 1005 0 881 0)
   543               #label: 'GUI Painter'
   617               #label: 'GUI Painter'
   544               #min: #(#Point 10 10)
   618               #min: #(#Point 10 10)
   545               #max: #(#Point 1160 870)
   619               #max: #(#Point 1160 870)
   546               #bounds: #(#Rectangle 282 281 835 819)
   620               #bounds: #(#Rectangle 453 344 1006 882)
   547               #menu: #menu
   621               #menu: #menu
   548               #usePreferredExtent: false
   622               #usePreferredExtent: false
   549           )
   623           )
   550           #component: 
   624           #component: 
   551            #(#SpecCollection
   625            #(#SpecCollection
   667                                                             #activeHelpKey: #cancel
   741                                                             #activeHelpKey: #cancel
   668                                                             #label: 'Cancel'
   742                                                             #label: 'Cancel'
   669                                                             #tabable: true
   743                                                             #tabable: true
   670                                                             #model: #cancel
   744                                                             #model: #cancel
   671                                                             #enableChannel: #modifiedChannel
   745                                                             #enableChannel: #modifiedChannel
   672                                                             #extent: #(#Point 183 24)
   746                                                             #extent: #(#Point 182 24)
   673                                                         )
   747                                                         )
   674                                                          #(#ActionButtonSpec
   748                                                          #(#ActionButtonSpec
   675                                                             #name: 'acceptButton'
   749                                                             #name: 'acceptButton'
   676                                                             #activeHelpKey: #accept
   750                                                             #activeHelpKey: #accept
   677                                                             #label: 'OK'
   751                                                             #label: 'OK'
  1498           ) nil
  1572           ) nil
  1499           nil
  1573           nil
  1500       )
  1574       )
  1501 ! !
  1575 ! !
  1502 
  1576 
  1503 !UIPainter class methodsFor:'resources'!
       
  1504 
       
  1505 iconAlignB
       
  1506     "Generated by the Image Editor"
       
  1507     "
       
  1508     ImageEditor openOnClass:self andSelector:#iconAlignB
       
  1509     "
       
  1510 
       
  1511     <resource: #image>
       
  1512 
       
  1513     ^Icon
       
  1514         constantNamed:#'UIPainter iconAlignB'
       
  1515         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@G@@@@@@@G@E@@@@@G@G@@@@@G@G@@@@@G@G@@@E@G@G@@@G@G@G@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G C@G @@G'' @G'' @G'' @G'' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' G'''' O??0O??0@@@@@@@C@@@@') ; yourself); yourself]
       
  1516 !
       
  1517 
       
  1518 iconAlignL
       
  1519     "Generated by the Image Editor"
       
  1520     "
       
  1521     ImageEditor openOnClass:self andSelector:#iconAlignL
       
  1522     "
       
  1523 
       
  1524     <resource: #image>
       
  1525 
       
  1526     ^Icon
       
  1527         constantNamed:#'UIPainter iconAlignL'
       
  1528         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@@(@@@@@@@(UU@@@@@(_?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@F@@@G?? G?? G?? G?? F@@@F@@@G? @G? @G? @G? @F@@@@@@@@@@@') ; yourself); yourself]
       
  1529 !
       
  1530 
       
  1531 iconAlignLR
       
  1532     "Generated by the Image Editor"
       
  1533     "
       
  1534     ImageEditor openOnClass:self andSelector:#iconAlignLR
       
  1535     "
       
  1536 
       
  1537     <resource: #image>
       
  1538 
       
  1539     ^Icon
       
  1540         constantNamed:#'UIPainter iconAlignLR'
       
  1541         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(_??2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??2 @@(@@@B E@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A F@A G?? G?? G?? G?? F@A F@A G?? G?? G?; G?? F@A @@@@@@@@') ; yourself); yourself]
       
  1542 !
       
  1543 
       
  1544 iconAlignR
       
  1545     "Generated by the Image Editor"
       
  1546     "
       
  1547     ImageEditor openOnClass:self andSelector:#iconAlignR
       
  1548     "
       
  1549 
       
  1550     <resource: #image>
       
  1551 
       
  1552     ^Icon
       
  1553         constantNamed:#'UIPainter iconAlignR'
       
  1554         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@_??2 @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUUR @@G???2 @@@@@@B E@@@@@B @@@@@@B @@@@@@B @@@@EUR @@@@G?2 @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@A G?? G?? G?? G?? @@A @@A @G? @G? @G? @G? @@A @@@@@@@@') ; yourself); yourself]
       
  1555 !
       
  1556 
       
  1557 iconAlignT
       
  1558     "Generated by the Image Editor"
       
  1559     "
       
  1560     ImageEditor openOnClass:self andSelector:#iconAlignT
       
  1561     "
       
  1562 
       
  1563     <resource: #image>
       
  1564 
       
  1565     ^Icon
       
  1566         constantNamed:#'UIPainter iconAlignT'
       
  1567         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@G@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@@@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' @G'' @G'' @G'' @G'' @G @@G C@@@@@@@@@@@@') ; yourself); yourself]
       
  1568 !
       
  1569 
       
  1570 iconAlignTB
       
  1571     "Generated by the Image Editor"
       
  1572     "
       
  1573     ImageEditor openOnClass:self andSelector:#iconAlignTB
       
  1574     "
       
  1575 
       
  1576     <resource: #image>
       
  1577 
       
  1578     ^Icon
       
  1579         constantNamed:#'UIPainter iconAlignTB'
       
  1580         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@A@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@G@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@H@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@@@G@G@D@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@H@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G''''!!G'''' G'''' G'''' G'''' G'''' G'''' G''''!!G''''!!G''& G'''' O??0O??2@@@@@@@@@@@@') ; yourself); yourself]
       
  1581 ! !
       
  1582 
       
  1583 !UIPainter methodsFor:'actions'!
  1577 !UIPainter methodsFor:'actions'!
  1584 
  1578 
  1585 accept
  1579 accept
  1586     "accept changes done to the specification. The component assigned to the
  1580     "accept changes done to the specification. The component assigned to the
  1587      specification will change immediately dependant on the attributes derived
  1581      specification will change immediately dependant on the attributes derived
  1943         selectorOrMenu class ~~ Menu
  1937         selectorOrMenu class ~~ Menu
  1944             ifTrue:  [editor openModalOnClass:cls andSelector:selectorOrMenu]
  1938             ifTrue:  [editor openModalOnClass:cls andSelector:selectorOrMenu]
  1945             ifFalse: [editor openModalOnMenu:selectorOrMenu].
  1939             ifFalse: [editor openModalOnMenu:selectorOrMenu].
  1946         self helpTool updateList.
  1940         self helpTool updateList.
  1947 
  1941 
  1948         editor selectorName ~= selectorOrMenu ifTrue:[
  1942         editor specSelector ~= selectorOrMenu ifTrue:[
  1949             editor didInstall ifTrue:[
  1943             editor hasSaved ifTrue:[
  1950                 self specTool specification menuSelector:editor selectorName asSymbol.
  1944                 self specTool specification menuSelector:editor specSelector.
  1951                 self modifiedChannel value:true.
  1945                 self modifiedChannel value:true.
  1952                 self accept
  1946                 self accept
  1953             ]
  1947             ]
  1954         ].
  1948         ].
  1955     ]
  1949     ]
  1968         ^ self information:'No application class defined yet!!'
  1962         ^ self information:'No application class defined yet!!'
  1969     ].
  1963     ].
  1970 
  1964 
  1971     (aspect := self specTool specification hierarchicalList) notNil ifTrue:[
  1965     (aspect := self specTool specification hierarchicalList) notNil ifTrue:[
  1972         aspect := aspect asSymbol
  1966         aspect := aspect asSymbol
  1973     ] ifFalse:[
  1967     ].
  1974         "/ cg: q&d hack ...
  1968 
  1975 
       
  1976         aspect := treeView propertySelected.
       
  1977         aspect notNil ifTrue:[
       
  1978             Object errorSignal handle:[:ex |
       
  1979                 aspect := nil.
       
  1980             ] do:[
       
  1981                 aspect := aspect view asMenu.
       
  1982             ]
       
  1983         ].
       
  1984     ].
       
  1985     
       
  1986     editor := HierarchicalListEditor new.
  1969     editor := HierarchicalListEditor new.
  1987     editor masterApplication:self.
  1970     editor masterApplication:self.
  1988     editor openModalOnClass:cls andSelector:aspect.
  1971     editor openModalOnClass:cls andSelector:aspect.
  1989 
  1972 
  1990     editor selectorName ~= aspect ifTrue:[
  1973     editor specSelector ~= aspect ifTrue:[
  1991         editor didInstall ifTrue:[
  1974         editor hasSaved ifTrue:[
  1992             self specTool specification hierarchicalList:editor selectorName asSymbol.
  1975             self specTool specification hierarchicalList:editor specSelector.
  1993             self modifiedChannel value:true.
  1976             self modifiedChannel value:true.
  1994             self accept
  1977             self accept
  1995         ]
  1978         ]
  1996     ]
  1979     ]
  1997 !
  1980 !
  2647 
  2630 
  2648     aClass notNil ifTrue:[
  2631     aClass notNil ifTrue:[
  2649         painter := self painter.
  2632         painter := self painter.
  2650         self setClass:aClass selector:aSelector.
  2633         self setClass:aClass selector:aSelector.
  2651         (aClass respondsTo:aSelector) ifTrue:[
  2634         (aClass respondsTo:aSelector) ifTrue:[
  2652             painter setupFromSpec:(aClass perform:aSelector).
  2635             "take care for those who do close very quickly"
  2653             treeView selection: #(1).
  2636             Object errorSignal handle: [:ex|] do: 
       
  2637             [
       
  2638                 painter setupFromSpec:(aClass perform:aSelector).
       
  2639                 treeView selection: #(1)
       
  2640             ].
  2654         ]
  2641         ]
  2655     ]
  2642     ]
  2656 
  2643 
  2657     "Modified: / 25.10.1997 / 19:11:51 / cg"
  2644     "Modified: / 25.10.1997 / 19:11:51 / cg"
  2658     "Modified: / 5.2.1998 / 09:48:15 / stefan"
  2645     "Modified: / 5.2.1998 / 09:48:15 / stefan"
  2768     self loadFromMessage: 
  2755     self loadFromMessage: 
  2769         (ResourceSelectionBrowser
  2756         (ResourceSelectionBrowser
  2770             request: 'Load Window Spec From Class'
  2757             request: 'Load Window Spec From Class'
  2771             onSuperclass: nil
  2758             onSuperclass: nil
  2772             andClass: specClass
  2759             andClass: specClass
  2773             andSelector: specSelector
  2760             andSelector: specSelector ? #windowSpec
  2774             withResourceTypes: #(canvas))
  2761             withResourceTypes: #(canvas))
  2775 !
  2762 !
  2776 
  2763 
  2777 doLoadSubspec
  2764 doLoadSubspec
  2778 
  2765 
  2923     |resourceMessage|
  2910     |resourceMessage|
  2924 
  2911 
  2925     self treeSelection. "ask for modification"
  2912     self treeSelection. "ask for modification"
  2926 
  2913 
  2927     (resourceMessage := ResourceSelectionBrowser
  2914     (resourceMessage := ResourceSelectionBrowser
  2928             request: 'Save In Class'
  2915             request: 'Save Window Spec In Class'
  2929             onSuperclass: #Object
  2916             onSuperclass: #Object
  2930             andClass: specClass ? #ApplicationModel
  2917             andClass: specClass ? #ApplicationModel
  2931             andSelector: specSelector ? #windowSpec
  2918             andSelector: specSelector ? #windowSpec
  2932             withResourceTypes: #(canvas)) notNil
  2919             withResourceTypes: #(canvas)) notNil
  2933     ifTrue:
  2920     ifTrue: