<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-15"
http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
On 8/4/2023 9:46 AM, Szabolcs Komáromi via Cuis-dev wrote:
<blockquote
cite="mid:cea524ff-1f4a-4e0a-84bf-d4c6bc005f79@app.fastmail.com"
type="cite">
<title></title>
<style type="text/css">p.MsoNormal,p.MsoNoSpacing{margin:0}</style>
<div>Hi,<br>
</div>
<div><br>
</div>
<div>The Protocol Browser doesn't work on metaclasses and from the
selectedClassOrMetaClass' comment ("I ignore metaClass, so..")
looks like this is the intended behavior. Is there any
particular reason not to support this scenario?<br>
</div>
<div><br>
</div>
<div>Adding a test to the ProtoclolBrowser's selectedClass method
to check whether the looked up class is a metaclass ("baseClass
isMeta") seemingly works.<br>
</div>
<blockquote type="cite">
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;"><b>selectedClass</b></span><span
class="font" style="font-family:
menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">"Answer the class that
is currently selected. </span><span class="font"
style="font-family: menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">Answer base if no
selection exists."</span><span class="font"
style="font-family: menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">| className class |</span><span
class="font" style="font-family:
menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">className := self
selectiveClassListIndex = 0</span><span class="font"
style="font-family: menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">ifTrue: [ self
selectiveClassList last ]</span><span class="font"
style="font-family: menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">ifFalse: [ self
selectiveClassList at: self selectiveClassListIndex ].</span><span
class="font" style="font-family:
menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">class := Smalltalk at:
(className findTokens: ' ') first asSymbol.</span><span
class="font" style="font-family:
menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">baseClass isMeta</span><span
class="font" style="font-family:
menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">ifTrue: [ ^ class
class ]</span><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;"><br>
</span></div>
<div><span class="font" style="font-family:
menlo,consolas,monospace,sans-serif;">ifFalse: [ ^ class ]. </span><br>
</div>
</blockquote>
<div class="align-center" style="position: relative; margin: 1em
0px; text-align: center;">...<br>
</div>
<div>Regards,<br>
</div>
<div>Szabolcs<br>
</div>
</blockquote>
<br>
Nice! I pushed this, followed by another update that makes
#selectedClassOrMetaClass be consistent with other implementors in
the hierarchy.<br>
<br>
Thanks,<br>
<pre class="moz-signature" cols="72">--
Juan Vuletich
cuis.st
github.com/jvuletich
researchgate.net/profile/Juan-Vuletich
independent.academia.edu/JuanVuletich
patents.justia.com/inventor/juan-manuel-vuletich
linkedin.com/in/juan-vuletich-75611b3
twitter.com/JuanVuletich</pre>
</body>
</html>