equal
deleted
inserted
replaced
704 addCheckBoxForCurrentPackageAndSubPackages |
704 addCheckBoxForCurrentPackageAndSubPackages |
705 |b any| |
705 |b any| |
706 |
706 |
707 b := RadioButton "CheckBox" label:(resources string:'Current package ("%1") and Subpackages' with:currentPackage). |
707 b := RadioButton "CheckBox" label:(resources string:'Current package ("%1") and Subpackages' with:currentPackage). |
708 self addCheckBox:b forSearchArea:#currentPackageAndSubPackages. |
708 self addCheckBox:b forSearchArea:#currentPackageAndSubPackages. |
709 any := Smalltalk allProjectIDs contains:[:p | p startsWith:currentPackage,'/']. |
709 any := Smalltalk allPackageIDs contains:[:p | p startsWith:currentPackage,'/']. |
710 any ifFalse:[ |
710 any ifFalse:[ |
711 b disable |
711 b disable |
712 ]. |
712 ]. |
713 ^ b. |
713 ^ b. |
714 ! |
714 ! |