WindowBuilder.st
changeset 1351 42d9de8818bf
parent 1344 c29fdda31038
child 1357 facab5c393b9
equal deleted inserted replaced
1350:cf8c3c79df78 1351:42d9de8818bf
   459      application classes namespace - allowing private classes as majorKey.
   459      application classes namespace - allowing private classes as majorKey.
   460     "
   460     "
   461 
   461 
   462     |spec cls dict dkey|
   462     |spec cls dict dkey|
   463 
   463 
       
   464     minorKey isNil ifTrue:[^ nil].
       
   465 
   464     subCanvasSpecs notNil ifTrue:[
   466     subCanvasSpecs notNil ifTrue:[
   465         dkey := majorKey ? #NoMajorKey.
   467         dkey := majorKey ? #NoMajorKey.
   466         dict := subCanvasSpecs at:dkey ifAbsent:nil.
   468         dict := subCanvasSpecs at:dkey ifAbsent:nil.
   467 
   469 
   468         dict notNil ifTrue:[
   470         dict notNil ifTrue:[
  1235 ! !
  1237 ! !
  1236 
  1238 
  1237 !WindowBuilder class methodsFor:'documentation'!
  1239 !WindowBuilder class methodsFor:'documentation'!
  1238 
  1240 
  1239 version
  1241 version
  1240     ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.86 2000-02-09 18:17:12 cg Exp $'
  1242     ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.87 2000-02-17 14:58:17 cg Exp $'
  1241 ! !
  1243 ! !