InspectorView.st
changeset 593 6bc83313d7ff
parent 570 8575ebd6a0d2
child 613 048942111c7b
equal deleted inserted replaced
592:5a03a69bc5a3 593:6bc83313d7ff
   262 
   262 
   263     nShown := 100.
   263     nShown := 100.
   264     hasMore := false.
   264     hasMore := false.
   265 !
   265 !
   266 
   266 
   267 mapped
   267 realize
   268     "delayed setup of lists till map-time - 
   268     "delayed setup of lists till first map-time - 
   269      this makes startup of inspectors a bit faster"
   269      this makes startup of inspectors a bit faster"
   270 
   270 
   271     |o|
   271     |o|
   272 
   272 
   273     super mapped.
   273     super realize.
   274     inspectedObject notNil ifTrue:[
   274     inspectedObject notNil ifTrue:[
   275         "
   275         "
   276          kludge to trick inspect:, which ignores setting the
   276          kludge to trick inspect:, which ignores setting the
   277          same object again ...
   277          same object again ...
   278         "
   278         "
   279         o := inspectedObject.
   279         o := inspectedObject.
   280         inspectedObject := nil.
   280         inspectedObject := nil.
   281         self inspect:o
   281         self inspect:o
   282     ]
   282     ]
       
   283 
       
   284     "Created: 30.5.1996 / 09:38:37 / cg"
   283 ! !
   285 ! !
   284 
   286 
   285 !InspectorView methodsFor:'menu'!
   287 !InspectorView methodsFor:'menu'!
   286 
   288 
   287 fieldMenu
   289 fieldMenu
   794 ! !
   796 ! !
   795 
   797 
   796 !InspectorView class methodsFor:'documentation'!
   798 !InspectorView class methodsFor:'documentation'!
   797 
   799 
   798 version
   800 version
   799     ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.49 1996-05-26 13:22:33 cg Exp $'
   801     ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.50 1996-05-31 07:03:45 cg Exp $'
   800 ! !
   802 ! !