[Pharo-project] Smalltalk Labs Browser

Pavel Krivanek pavel.krivanek at gmail.com
Wed Nov 3 00:26:57 CET 2010


Well, it can be loaded into PharoKernel (with Gofer) using this
script. Menus currently don't work and if you save the image, the
startUp fails (I'm not sure if it is PharoKernel related error)

Object subclass: #MenuIcons
	instanceVariableNames: ''
	classVariableNames: 'Icons TranslatedIcons'
	poolDictionaries: ''
	category: 'OmniBrowserCompatibilityLayer'!

 Gofer new
   squeaksource: 'KomHttpServer';
   package: 'DynamicBindings';
   package: 'KomServices';
   package: 'KomHttpServer';
   load.

Gofer it
  wiresong: 'ob';
  package: 'OmniBrowser';
  load.

 Gofer new
   renggli: 'omnibrowser';
   package: 'JSON';
   package: 'OB-Web';
   package: 'OB-Standard';
   load.

MCFileBasedRepository flushAllCaches.
MCDefinition clearInstances.
Smalltalk garbageCollect. !

!OBBrowser methodsFor: 'accessing' stamp: 'cwp 6/4/2006 00:36'!
addPanel: aPanel
aPanel ifNotNil: [
	panels add: aPanel.
	aPanel browser: self].
! !

!OBKomHttpService methodsFor: 'as yet unclassified' stamp: 'pk 11/2/2010 22:44'!
processError: anError
	
	| msg |
	
	msg := String streamContents: [:s |
	
	s nextPutAll: thisContext stack size asString; cr.
"	rep nextPutAll: ((thisContext stack copy at: 12) tempsAndValues )
asString; cr."
	thisContext stack copy withIndexDo: [:stck :i |
		[s nextPutAll: i asString; space; nextPutAll: stck asString; cr]
ifError: [:er | s nextPutAll: er asString; cr]]].
	
	^ HttpResponse basicNew
		status: #serverError;
		contentType: MIMEDocument contentTypePlainText;
		contents: ((anError class name, ': ', anError messageText), String
cr, msg) readStream;
		yourself! !

!OBCodeBrowser class methodsFor: 'configuration' stamp: 'lr 8/15/2010 15:31'!
annotationPanel
	^ nil! !

!OBCodeBrowser class methodsFor: 'configuration' stamp: 'lr 8/15/2010 15:31'!
buttonPanel
	^ nil! !

OBKomHttpService startOn: 8000.

(Delay forSeconds: 10000) wait.




More information about the Pharo-project mailing list