🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: gnu.smalltalk.bug
1 messages
1 total messages Started by Emmett McLean Sat, 03 Oct 1992 07:01
Need help taking advantage of st.el's interactive support
#18
Author: Emmett McLean
Date: Sat, 03 Oct 1992 07:01
60 lines
1692 bytes
Does anyone have  supplemental documentation on how to
use the interactive smalltalk commands such as
smalltalk-doit, smalltalk-compile, and smalltalk-snapshot?

My path set up so st.el finds mst and
when I type "M-x mst" I get the desired two window 
set up. If anyone is really ambitous they might
I instruct mst to evaluate the last 10 lines of code
below.

Your help is greatly appreciated. By helping me you are
also helping about 10 other students who find this of interest.

Regards, Emmett vpcsc4@sfsuvax1.sfsu.edu

= = c u t  h e r e = =
Object subclass: #GraphNode
	instanceVariableNames:'neighbors'
	classVariableNames:''
	poolDictionaries:''
	category: nil.
	!


!GraphNode class methodsFor:'creation'!
new
	^super new initNeighbors	
!!

	
!GraphNode methodsFor: 'all'!
initNeighbors
	neighbors_Set new
!

neighbors
	^neighbors
!
 
addNeighbor: theNode
	neighbors add: theNode.
!

doWithNeighbors: aBlock
	^neighbors do: aBlock
!

= theNode
	self subclassResponsibility
!!

|m l o count|
l_ GraphNode new.
m_ GraphNode new.
o_ GraphNode new.
l addNeighbor: m.
l addNeighbor: o.
count_0.
(l doWithNeighbors: [count_count+1]).
count printNl!
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads