equal
deleted
inserted
replaced
1220 ! |
1220 ! |
1221 |
1221 |
1222 inspect:anObject |
1222 inspect:anObject |
1223 | objectsLanguage | |
1223 | objectsLanguage | |
1224 |
1224 |
1225 self navigationHistoryHolder currentItem:(NavigationState for:anObject). |
1225 self navigationHistoryHolder currentItem:(self navigationStateFor: anObject). |
1226 self window notNil ifTrue:[ |
1226 self window notNil ifTrue:[ |
1227 self updateWindowLabel |
1227 self updateWindowLabel |
1228 ]. |
1228 ]. |
1229 objectsLanguage := anObject class programmingLanguage. |
1229 objectsLanguage := anObject class programmingLanguage. |
1230 self evaluationLanguageHolder value:(EvaluationLanguageMap at: objectsLanguage ifAbsent: [ objectsLanguage ]). |
1230 self evaluationLanguageHolder value:(EvaluationLanguageMap at: objectsLanguage ifAbsent: [ objectsLanguage ]). |
1233 self updateEvaluationLanguage. |
1233 self updateEvaluationLanguage. |
1234 |
1234 |
1235 "Modified: / 27-02-2008 / 12:06:52 / janfrog" |
1235 "Modified: / 27-02-2008 / 12:06:52 / janfrog" |
1236 "Modified: / 15-07-2011 / 16:26:03 / cg" |
1236 "Modified: / 15-07-2011 / 16:26:03 / cg" |
1237 "Modified (format): / 19-08-2011 / 09:01:20 / cg" |
1237 "Modified (format): / 19-08-2011 / 09:01:20 / cg" |
1238 "Modified (comment): / 12-08-2014 / 20:04:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1238 "Modified: / 04-02-2015 / 15:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1239 ! |
1239 ! |
1240 |
1240 |
1241 openOn: anObject |
1241 openOn: anObject |
1242 self inspect: anObject. |
1242 self inspect: anObject. |
1243 self openWithExtent:(LastExtent ? nil). |
1243 self openWithExtent:(LastExtent ? nil). |
1268 |
1268 |
1269 "Created: / 15-07-2011 / 16:25:42 / cg" |
1269 "Created: / 15-07-2011 / 16:25:42 / cg" |
1270 ! ! |
1270 ! ! |
1271 |
1271 |
1272 !Inspector2 methodsFor:'private'! |
1272 !Inspector2 methodsFor:'private'! |
|
1273 |
|
1274 navigationStateFor: anObject |
|
1275 ^ NavigationState for: anObject |
|
1276 |
|
1277 "Created: / 04-02-2015 / 15:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1278 ! |
1273 |
1279 |
1274 setDoItActionForLanguage: language |
1280 setDoItActionForLanguage: language |
1275 |
1281 |
1276 |
1282 |
1277 self currentState tabViews do:[:view | |
1283 self currentState tabViews do:[:view | |
1313 ! ! |
1319 ! ! |
1314 |
1320 |
1315 !Inspector2::NavigationState class methodsFor:'documentation'! |
1321 !Inspector2::NavigationState class methodsFor:'documentation'! |
1316 |
1322 |
1317 version |
1323 version |
1318 ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.59 2015-02-03 11:20:17 vrany Exp $' |
1324 ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.60 2015-02-04 15:25:50 vrany Exp $' |
1319 ! |
1325 ! |
1320 |
1326 |
1321 version_SVN |
1327 version_SVN |
1322 ^'$Id: Tools__Inspector2.st,v 1.59 2015-02-03 11:20:17 vrany Exp $' |
1328 ^'$Id: Tools__Inspector2.st,v 1.60 2015-02-04 15:25:50 vrany Exp $' |
1323 ! ! |
1329 ! ! |
1324 |
1330 |
1325 !Inspector2::NavigationState methodsFor:'accessing'! |
1331 !Inspector2::NavigationState methodsFor:'accessing'! |
1326 |
1332 |
1327 index |
1333 index |
1504 ! ! |
1510 ! ! |
1505 |
1511 |
1506 !Inspector2 class methodsFor:'documentation'! |
1512 !Inspector2 class methodsFor:'documentation'! |
1507 |
1513 |
1508 version |
1514 version |
1509 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.59 2015-02-03 11:20:17 vrany Exp $' |
1515 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.60 2015-02-04 15:25:50 vrany Exp $' |
1510 ! |
1516 ! |
1511 |
1517 |
1512 version_CVS |
1518 version_CVS |
1513 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.59 2015-02-03 11:20:17 vrany Exp $' |
1519 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.60 2015-02-04 15:25:50 vrany Exp $' |
1514 ! |
1520 ! |
1515 |
1521 |
1516 version_CVS_jvrany |
1522 version_CVS_jvrany |
1517 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.59 2015-02-03 11:20:17 vrany Exp $' |
1523 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.60 2015-02-04 15:25:50 vrany Exp $' |
1518 ! |
1524 ! |
1519 |
1525 |
1520 version_SVN |
1526 version_SVN |
1521 ^ '$Id: Tools__Inspector2.st,v 1.59 2015-02-03 11:20:17 vrany Exp $' |
1527 ^ '$Id: Tools__Inspector2.st,v 1.60 2015-02-04 15:25:50 vrany Exp $' |
1522 ! ! |
1528 ! ! |
1523 |
1529 |
1524 |
1530 |
1525 Inspector2 initialize! |
1531 Inspector2 initialize! |