14491 <resource: #programMenu > |
14491 <resource: #programMenu > |
14492 |
14492 |
14493 |items m| |
14493 |items m| |
14494 |
14494 |
14495 currentClass isNil ifTrue:[ |
14495 currentClass isNil ifTrue:[ |
14496 variableListView flash. |
14496 variableListView flash. |
14497 ^ nil |
14497 ^ nil |
14498 ]. |
14498 ]. |
14499 |
14499 |
14500 showInstance ifFalse:[ |
14500 showInstance ifFalse:[ |
14501 items := #( |
14501 items := #( |
14502 ('class instvar refs...' classInstVarRefs ) |
14502 ('Class instvar refs...' classInstVarRefs ) |
14503 ('class instvar mods...' classInstVarMods ) |
14503 ('Class instvar mods...' classInstVarMods ) |
14504 ('classvar refs...' classVarRefs ) |
14504 ('Classvar refs...' classVarRefs ) |
14505 ('classvar mods...' classVarMods ) |
14505 ('Classvar mods...' classVarMods ) |
14506 ('-' nil ) |
14506 ('-' nil ) |
14507 ('all class instvar refs...' allClassInstVarRefs ) |
14507 ('All class instvar refs...' allClassInstVarRefs ) |
14508 ('all class instvar mods...' allClassInstVarMods ) |
14508 ('All class instvar mods...' allClassInstVarMods ) |
14509 ('all classvar refs...' allClassVarRefs ) |
14509 ('All classvar refs...' allClassVarRefs ) |
14510 ('all classvar mods...' allClassVarMods ) |
14510 ('All classvar mods...' allClassVarMods ) |
14511 ). |
14511 ). |
14512 ] ifTrue:[ |
14512 ] ifTrue:[ |
14513 items := #( |
14513 items := #( |
14514 ('instvar refs...' instVarRefs ) |
14514 ('Instvar refs...' instVarRefs ) |
14515 ('instvar mods...' instVarMods ) |
14515 ('Instvar mods...' instVarMods ) |
14516 ('classvar refs...' classVarRefs ) |
14516 ('Classvar refs...' classVarRefs ) |
14517 ('classvar mods...' classVarMods ) |
14517 ('Classvar mods...' classVarMods ) |
14518 ('-' nil ) |
14518 ('-' nil ) |
14519 ('all instvar refs...' allInstVarRefs ) |
14519 ('All instvar refs...' allInstVarRefs ) |
14520 ('all classvar refs...' allClassVarRefs ) |
14520 ('All classvar refs...' allClassVarRefs ) |
14521 ('all instvar mods...' allInstVarMods ) |
14521 ('All instvar mods...' allInstVarMods ) |
14522 ('all classvar mods...' allClassVarMods ) |
14522 ('All classvar mods...' allClassVarMods ) |
14523 ). |
14523 ). |
14524 ]. |
14524 ]. |
14525 |
14525 |
14526 showInstance ifFalse:[ |
14526 showInstance ifFalse:[ |
14527 classInstVarsInVarList == true ifTrue:[ |
14527 classInstVarsInVarList == true ifTrue:[ |
14528 items := items , #(('-') ('show classVars' showClassVars)). |
14528 items := items , #(('-') ('Show classVars' showClassVars)). |
14529 ] ifFalse:[ |
14529 ] ifFalse:[ |
14530 items := items , #(('-') ('show classInstVars' showClassInstVars)). |
14530 items := items , #(('-') ('Show classInstVars' showClassInstVars)). |
14531 ]. |
14531 ]. |
14532 ]. |
14532 ]. |
14533 |
14533 |
14534 ("showInstance and:[" variableListView hasSelection "]" ) ifTrue:[ |
14534 ("showInstance and:[" variableListView hasSelection "]" ) ifTrue:[ |
14535 items := items , #( |
14535 items := items , #( |
14536 ('-' ) |
14536 ('-' ) |
14537 ('type information' varTypeInfo) |
14537 ('Type information' varTypeInfo) |
14538 ). |
14538 ). |
14539 ]. |
14539 ]. |
14540 |
14540 |
14541 ("showInstance not and:["variableListView hasSelection"]") ifTrue:[ |
14541 ("showInstance not and:["variableListView hasSelection"]") ifTrue:[ |
14542 items := items , #( |
14542 items := items , #( |
14543 ('inspect' varInspect) |
14543 ('Inspect' varInspect) |
14544 ). |
14544 ). |
14545 ]. |
14545 ]. |
14546 |
14546 |
14547 m := PopUpMenu itemList:items resources:resources. |
14547 m := PopUpMenu itemList:items resources:resources. |
14548 |
14548 |
14549 currentClass instSize == 0 ifTrue:[ |
14549 currentClass instSize == 0 ifTrue:[ |
14550 m disableAll:#(instVarRefs instVarMods). |
14550 m disableAll:#(instVarRefs instVarMods). |
14551 currentClass subclasses size == 0 ifTrue:[ |
14551 currentClass subclasses size == 0 ifTrue:[ |
14552 m disableAll:#(allInstVarRefs allInstVarMods). |
14552 m disableAll:#(allInstVarRefs allInstVarMods). |
14553 ] |
14553 ] |
14554 ]. |
14554 ]. |
14555 |
14555 |
14556 currentClass isLoaded ifFalse:[ |
14556 currentClass isLoaded ifFalse:[ |
14557 m disableAll |
14557 m disableAll |
14558 ]. |
14558 ]. |
14559 ^ m |
14559 ^ m |
14560 |
14560 |
14561 "Modified: / 15.10.1998 / 10:51:17 / cg" |
14561 "Modified: / 1.2.2002 / 13:02:36 / cg" |
14562 ! |
14562 ! |
14563 |
14563 |
14564 variableSelection:lineNr |
14564 variableSelection:lineNr |
14565 "variable selection changed" |
14565 "variable selection changed" |
14566 |
14566 |