|sel l|
l := List new.
sel := #windowSpec.
(Smalltalk allImplementorsOf:sel) do:[:cls |
|mthd specArray spec|
mthd := cls compiledMethodAt:sel.
(mthd hasResource:#canvas) ifTrue:[
specArray := mthd valueWithReceiver:nil arguments:nil.
spec := specArray decodeAsLiteralArray.
spec window max notNil ifTrue:[
l add:mthd
].
]
].
SystemBrowser browseMethods:l.