equal
deleted
inserted
replaced
367 layout: (LayoutFrame 0 0 26 0 0 1 0 1) uuid: 'aebced36-3384-11b2-a28b-00d861a3d4eb' |
367 layout: (LayoutFrame 0 0 26 0 0 1 0 1) uuid: 'aebced36-3384-11b2-a28b-00d861a3d4eb' |
368 visibilityChannel: browserVisibleHolder |
368 visibilityChannel: browserVisibleHolder |
369 hasHorizontalScrollBar: true |
369 hasHorizontalScrollBar: true |
370 hasVerticalScrollBar: true |
370 hasVerticalScrollBar: true |
371 majorKey: #'Tools::NewSystemBrowser' |
371 majorKey: #'Tools::NewSystemBrowser' |
372 minorKey: singleClassWithoutVariableListBrowserSpec |
372 minorKey: multipleClassBrowserSpec "/ singleClassWithoutVariableListBrowserSpec |
373 createNewApplication: true |
373 createNewApplication: true |
374 createNewBuilder: true |
374 createNewBuilder: true |
375 postBuildCallback: postBuildBrowserCanvas: |
375 postBuildCallback: postBuildBrowserCanvas: |
376 ) |
376 ) |
377 (ViewSpec |
377 (ViewSpec |
1243 |
1243 |
1244 super update:something with:someArgument from:aModel. |
1244 super update:something with:someArgument from:aModel. |
1245 ! |
1245 ! |
1246 |
1246 |
1247 updateBrowser |
1247 updateBrowser |
1248 |cls widget| |
1248 |cls widget navigationState| |
1249 |
1249 |
1250 widget := self selectedView. |
1250 widget := self selectedView. |
1251 |
1251 |
1252 "/ update the browser |
1252 "/ update the browser |
1253 self inspectorMode == #widgetClass ifTrue:[ |
1253 self inspectorMode == #widgetClass ifTrue:[ |
1254 cls := widget class. |
1254 cls := widget class. |
1255 ] ifFalse:[ |
1255 ] ifFalse:[ |
1256 cls := widget application class |
1256 cls := widget application class |
1257 ]. |
1257 ]. |
1258 browser switchToClass:cls selector:nil. |
1258 "/ browser switchToClass:cls selector:nil. |
|
1259 |
|
1260 navigationState := browser navigationState. |
|
1261 |
|
1262 navigationState classList value:(cls theNonMetaclass withAllSuperclasses). |
|
1263 navigationState meta value:(cls isMetaclass). |
|
1264 browser classListGenerator value:(cls theNonMetaclass withAllSuperclasses). |
|
1265 browser sortByNameAndInheritance value:true. |
|
1266 browser |
|
1267 selectClass:cls; |
|
1268 selectProtocol: (Tools::BrowserList nameListEntryForALL). |
|
1269 browser switchToClass:cls selector:nil updateHistory: false. |
|
1270 |
|
1271 "/ sigh must be done after postbuild |
|
1272 "/ navigationState classListApplication addOwnerClasses value:false. |
1259 ! |
1273 ! |
1260 |
1274 |
1261 updateInspector |
1275 updateInspector |
1262 |view mode obj| |
1276 |view mode obj| |
1263 |
1277 |
1538 |
1552 |
1539 "Modified: / 30-07-2013 / 09:20:08 / cg" |
1553 "Modified: / 30-07-2013 / 09:20:08 / cg" |
1540 ! |
1554 ! |
1541 |
1555 |
1542 postBuildBrowserCanvas:aSubCanvas |
1556 postBuildBrowserCanvas:aSubCanvas |
|
1557 |navigationState| |
|
1558 |
1543 browser := aSubCanvas application. |
1559 browser := aSubCanvas application. |
|
1560 |
|
1561 browser isEmbeddedBrowser:true. |
|
1562 "/ navigationState := browser navigationState. |
|
1563 "/ |
|
1564 "/ navigationState classList value:(aClass theNonMetaclass withAllSuperclasses). |
|
1565 "/ navigationState meta value:(aClass isMetaclass). |
|
1566 "/ browser classListGenerator value:(aClass theNonMetaclass withAllSuperclasses). |
|
1567 "/ browser sortByNameAndInheritance value:true. |
|
1568 "/ browser |
|
1569 "/ selectClass:aClass; |
|
1570 "/ selectProtocol: (Tools::BrowserList nameListEntryForALL). |
|
1571 "/ browser switchToClass:aClass selector:initialSelectorOrNil updateHistory: false. |
|
1572 "/ |
|
1573 "/ "/ sigh must be done after postbuild |
|
1574 "/ navigationState classListApplication addOwnerClasses value:false. |
1544 |
1575 |
1545 "/ browser navigationState meta onChangeEvaluate:(self updateBrowser). |
1576 "/ browser navigationState meta onChangeEvaluate:(self updateBrowser). |
1546 "/ self updateBrowser. |
1577 "/ self updateBrowser. |
1547 ! |
1578 ! |
1548 |
1579 |