1262 ! ! |
1262 ! ! |
1263 |
1263 |
1264 !Inspector2::NavigationState class methodsFor:'documentation'! |
1264 !Inspector2::NavigationState class methodsFor:'documentation'! |
1265 |
1265 |
1266 version |
1266 version |
1267 ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
1267 ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.51 2014-05-12 14:38:20 vrany Exp $' |
1268 ! |
1268 ! |
1269 |
1269 |
1270 version_SVN |
1270 version_SVN |
1271 ^'$Id: Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
1271 ^'$Id: Tools__Inspector2.st,v 1.51 2014-05-12 14:38:20 vrany Exp $' |
1272 ! ! |
1272 ! ! |
1273 |
1273 |
1274 !Inspector2::NavigationState methodsFor:'accessing'! |
1274 !Inspector2::NavigationState methodsFor:'accessing'! |
1275 |
1275 |
1276 index |
1276 index |
1475 "Created: / 11-04-2014 / 19:58:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1475 "Created: / 11-04-2014 / 19:58:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1476 ! |
1476 ! |
1477 |
1477 |
1478 initializeExtraTabs |
1478 initializeExtraTabs |
1479 |
1479 |
1480 | selectors | |
1480 | selectors class | |
1481 |
1481 |
1482 selectors := Set new. |
1482 selectors := Set new. |
1483 |
1483 |
1484 "/ Old style - tabs are specified by method #inspector2Tabs |
1484 "/ Old style - tabs are specified by method #inspector2Tabs |
1485 theObject inspector2Tabs do: [:selector| |
1485 theObject inspector2Tabs do: [:selector| |
1486 self initializeExtraTab: selector. |
1486 self initializeExtraTab: selector. |
1487 selectors add: selector. |
1487 selectors add: selector. |
1488 ]. |
1488 ]. |
1489 |
1489 |
1490 "/ New style - tab are defined by method with annotation |
1490 "/ New style - tab are defined by method with annotation |
1491 theObject class selectorsAndMethodsDo: [ :selector :method | |
1491 class := theObject class. |
1492 (selectors includes: selector) not ifTrue:[ |
1492 [ class notNil ] whileTrue:[ |
1493 (method hasAnnotation: #inspector2Tab) ifTrue:[ |
1493 class selectorsAndMethodsDo: [ :selector :method | |
1494 self initializeExtraTab: selector. |
1494 (selectors includes: selector) not ifTrue:[ |
|
1495 (method hasAnnotation: #inspector2Tab) ifTrue:[ |
|
1496 self initializeExtraTab: selector. |
|
1497 ]. |
1495 ]. |
1498 ]. |
1496 ]. |
1499 ]. |
1497 ] |
1500 class := class superclass. |
|
1501 ]. |
1498 |
1502 |
1499 "Created: / 16-01-2008 / 17:25:24 / janfrog" |
1503 "Created: / 16-01-2008 / 17:25:24 / janfrog" |
1500 "Modified: / 17-02-2008 / 10:30:43 / janfrog" |
1504 "Modified: / 17-02-2008 / 10:30:43 / janfrog" |
1501 "Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1505 "Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1502 "Modified (format): / 21-08-2011 / 08:01:34 / cg" |
1506 "Modified (format): / 21-08-2011 / 08:01:34 / cg" |
1503 "Modified: / 13-04-2014 / 20:58:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1507 "Modified: / 12-05-2014 / 15:36:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1504 ! |
1508 ! |
1505 |
1509 |
1506 initializeTabs |
1510 initializeTabs |
1507 |
1511 |
1508 tabs := OrderedCollection new. |
1512 tabs := OrderedCollection new. |
1522 ! ! |
1526 ! ! |
1523 |
1527 |
1524 !Inspector2 class methodsFor:'documentation'! |
1528 !Inspector2 class methodsFor:'documentation'! |
1525 |
1529 |
1526 version |
1530 version |
1527 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
1531 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.51 2014-05-12 14:38:20 vrany Exp $' |
1528 ! |
1532 ! |
1529 |
1533 |
1530 version_CVS |
1534 version_CVS |
1531 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
1535 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.51 2014-05-12 14:38:20 vrany Exp $' |
1532 ! |
1536 ! |
1533 |
1537 |
1534 version_CVS_jvrany |
1538 version_CVS_jvrany |
1535 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
1539 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.51 2014-05-12 14:38:20 vrany Exp $' |
1536 ! |
1540 ! |
1537 |
1541 |
1538 version_SVN |
1542 version_SVN |
1539 ^ '$Id: Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
1543 ^ '$Id: Tools__Inspector2.st,v 1.51 2014-05-12 14:38:20 vrany Exp $' |
1540 ! ! |
1544 ! ! |
1541 |
1545 |
1542 |
1546 |
1543 Inspector2 initialize! |
1547 Inspector2 initialize! |