Self-interest November 1995

self-interest@lists.selflanguage.org

21 participants
34 discussions

Drag&Drop for argument setting
by Michael.Huebner＠PrakInf.TU-Ilmenau.DE 30 Nov '95

30 Nov '95

A very nice thing would be the facility to set the value of an argument by drag&drop (akin to pointer grabbing). Assume you are writing an expression in an evaluator and you want to use an (e.g. not-well-known) object as the value for an actual argument or as the righthand side of an assignment than you only have to shift-click on the desired object. The reference to this object is inserted on the point where your input focus was, indicated by a sprouted pointer and the focus is behind the reference sign (=) so you can go on writing your expression. +---------------+ +---------------+ | an object | ------> | an object | +---------------+ / +---------------+ | do: a | / | ... | +===============+ / +---------------+ |do: (=)------------/ | ... | | | | | +---------------+ +---------------+ |evaluate|dismis| | | +---------------+ +---------------+ Michael

1 0

How is 'clone' implemented?
by Timo Lehtinen 30 Nov '95

30 Nov '95

Hello, I just read 'selfPaper.ps' with great interest. It left me pondering one detail, though - which at least I couldn't figure out from the paper: How is 'clone', which as I understand all objects inherit from the root object, implemented? Spefically, does it perform a shallow or a deep copy of the slots in the receiver... I would assume a deep one of some sorts or else the clones wouldn't be too usable. But what mechanism is then used to prevent clone from recursing to 'parent' via the slot of that name? How about other slots with non-primitive objects? Thanks in advance! Timo

2 1

Funded PhD Studentship Available
by Chris Hand 30 Nov '95

30 Nov '95

This position was previously advertised and filled in August/September 1995, but for reasons unrelated to the project has recently become vacant again. ----------------------------------------------------------------------- This ad is on WWW at http://www.cms.dmu.ac.uk/Research/MRG/advert.html * Eligibility restrictions apply for non-UK residents. For more * * info see http://www.cms.dmu.ac.uk/Research/MRG/advert-overseas.html * ----------------------------------------------------------------------- PhD Studentship in Collaborative Virtual Environments for Distributed Software Engineering School of Computing Sciences De Montfort University, Leicester Applications are invited for a 3-year PhD research studentship tenable at the Department of Computer Science, De Montfort University, Leicester. Applicants should hold a first or upper-second class honours degree, MSc or equivalent in Computer Science, Software Engineering or related discipline, and must have 2 years' practical experience of OO analysis, design and software development, along with knowledge of at least one OOPL, preferably Smalltalk or SELF. Experience with UNIX software development and MOO would be beneficial, as would knowledge of Distributed Object Technology (eg. CORBA). The successful candidate will work on a joint project with British Telecom developing a collaborative virtual environment to support distributed software engineering. Work will be undertaken at De Montfort University's Leicester campus, although the candidate will be expected to spend at least 3 months in total at BT's research labs in Martlesham. The position is funded by an EPSRC Industrial CASE Award, and remuneration will be according to standard EPSRC maintenance grant rates, supplemented by a contribution from BT. Applicants should send a detailed CV by fax, post or e-mail (ASCII or PostScript only), no later than 31st December 1995. Informal enquiries are also welcome. Interviews will be held in Leicester on January 19th 1996 (provisional date). Contact: Chris Hand Department of Computer Science De Montfort University The Gateway Leicester LE1 9BH Tel: 0116 257-7498 (direct line) fax: 0116 254-1891 E-mail: cph(a)dmu.ac.uk

1 0

Callbacks from C
by tomd＠pls.com 29 Nov '95

29 Nov '95

I cannot find any mention in the Self manual regarding callbacks into Self from C. Is there a callback mechanism? If so, where can I find the documentation. Regards, Tom # Tom Donaldson 2400 Research Blvd., Suite 350 # # Senior Software Developer Rockville, MD 20850, USA # # Personal Library Software (301) 208-1222, FAX: (301) 963-9738 # # e-mail: tomd(a)pls.com http://www.pls.com #

1 0

Re: copy-down slots
by David.Ungar＠Eng.Sun.COM 27 Nov '95

27 Nov '95

Craig, the easiest thing would be to give me a call 415 336 2618. - Dave PS: I think of the Self environment as supporting another language, slightly bigger than the VM's (but I bet you know this!). At 1:31 PM 11/27/95, Craig Chambers wrote: >I'm doing a comparison of different languages' support for inheriting >instance variables, overriding methods with instance variables, and vice >versa. Self's computational core doesn't do "inheritance" of slots, but >instead shares them using a delegation-like mechanism. But the Self >environment >does support some notion of copy-down slots, right? Where can I find out the >exact semantics of copy-down? Is there a standard set of rules for what >happens if a method slot overrides a copy-down data slot? Or is this just up >to the programmer when they set up their module annotations? > >Thanks for the info. > >-- Craig Chambers -- Dave

1 0

copy-down slots
by chambers＠cs.washington.edu 27 Nov '95

27 Nov '95

I'm doing a comparison of different languages' support for inheriting instance variables, overriding methods with instance variables, and vice versa. Self's computational core doesn't do "inheritance" of slots, but instead shares them using a delegation-like mechanism. But the Self environment does support some notion of copy-down slots, right? Where can I find out the exact semantics of copy-down? Is there a standard set of rules for what happens if a method slot overrides a copy-down data slot? Or is this just up to the programmer when they set up their module annotations? Thanks for the info. -- Craig Chambers

1 0

Re: Hello, world!
by Michael.Huebner＠PrakInf.TU-Ilmenau.DE 20 Nov '95

20 Nov '95

In my dream I was told to subtract the relative starting position of the embedded morph to the global coordinates instead of adding them. But still the left mouse button works only almost. The text of the module 'scroll' to be filed in with '_RunScript' follows: '$Revision:$' ' Copyright 1992, 1993, 1994, 1995 Sun Microsystems, Inc. and Stanford University. See the LICENSE file for license information. ' '-- Module body' bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: FollowSlot' scroll = bootstrap define: bootstrap stub -> 'globals' -> 'modules' -> 'scroll' -> () ToBe: bootstrap addSlotsTo: ( bootstrap remove: 'comment' From: bootstrap remove: 'directory' From: bootstrap remove: 'fileInTimeString' From: bootstrap remove: 'postFileIn' From: bootstrap remove: 'revision' From: bootstrap remove: 'subpartNames' From: globals modules init copy ) From: bootstrap setObjectAnnotationOf: bootstrap stub -> 'globals' -> 'modules' -> 'scroll' -> () From: ( | {} = 'ModuleInfo: Creator: globals modules scroll. CopyDowns: globals modules init. copy SlotsToOmit: comment directory fileInTimeString postFileIn revision subpartNames. \x7fIsComplete: '. | ) . } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'scroll' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' comment <- ''. } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'scroll' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' directory <- 'applications'. } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'scroll' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: InitializeToExpression: (_CurrentTimeString)\x7fVisibility: public' fileInTimeString <- _CurrentTimeString. } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'scroll' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: FollowSlot' postFileIn = ( | | transporter moduleDictionary resetFillingSemaphore. snapshotAction addSchedulerInitialMessage: message copy receiver: transporter moduleDictionary Selector: 'resetFillingSemaphore'. resend.postFileIn). } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'scroll' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' revision <- '$Revision:$'. } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'scroll' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' subpartNames <- ''. } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> () From: ( | { 'Category: ui2\x7fCategory: System\x7fCategory: Morphs\x7fCategory: Basic\x7fModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' scrollMorph = bootstrap define: bootstrap stub -> 'globals' -> 'scrollMorph' -> () ToBe: bootstrap addSlotsTo: ( bootstrap remove: 'parent' From: bootstrap remove: 'prototype' From: globals morph copyRemoveAllMorphs ) From: bootstrap setObjectAnnotationOf: bootstrap stub -> 'globals' -> 'scrollMorph' -> () From: ( | {} = 'ModuleInfo: Creator: globals scrollMorph. CopyDowns: globals morph. copyRemoveAllMorphs SlotsToOmit: parent prototype. \x7fIsComplete: '. | ) . } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> () From: ( | { 'Category: ui2\x7fCategory: System\x7fCategory: Morphs\x7fCategory: Basic\x7fModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' scrollMorph = bootstrap setObjectAnnotationOf: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | {} = 'ModuleInfo: Creator: traits scrollMorph. '. | ) . } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'scrollMorph' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' parent* = bootstrap stub -> 'traits' -> 'scrollMorph' -> (). } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'scrollMorph' -> () From: ( | { 'Category: filing out\x7fModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' prototype = ( | | scrollMorph). } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'scrollMorph' -> () From: ( | { 'Category: clipping\x7fModuleInfo: Module: scroll InitialContents: InitializeToExpression: (0)' x_off <- 0. } | ) bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'scrollMorph' -> () From: ( | { 'Category: clipping\x7fModuleInfo: Module: scroll InitialContents: InitializeToExpression: (0)' y_off <- 0. } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'Category: scrolling\x7fModuleInfo: Module: scroll InitialContents: FollowSlot' actualStart = ( | | x_off @ y_off). } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'Category: event dispatching\x7fModuleInfo: Module: scroll InitialContents: FollowSlot' allowSubmorphsToGetEvent: evt = ( | | globalBaseBounds includes: evt cursorPoint). } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'Category: contents handling\x7fModuleInfo: Module: scroll InitialContents: FollowSlot' contents = ( | | 0 = morphCount ifTrue: [^morph]. ^firstMorph). } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'Category: event dispatching\x7fComment: Attempt to handle the given event. If the event is not handled, return the special dropThroughMarker object.\x7fModuleInfo: Module: scroll InitialContents: FollowSlot\x7fVisibility: public' dispatchEvent: evt At: globalPt = ( | | "Details: First, give submorphs a chance to handle the event. If no submorph handles the event, let the receiver try to handle it. If even this fails, return the dropThroughMarker." dropEvent: evt OnSubmorphsAt: globalPt - actualStart IfHandled: [ ^self ]. dropEvent: evt OnBaseAt: globalPt). } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'Category: drawing\x7fModuleInfo: Module: scroll InitialContents: FollowSlot' drawOn: aCanvas = ( | | baseDrawOn: aCanvas. 0 = morphCount ifFalse: [aCanvas withClip: baseBounds Do: [|c| c: (aCanvas copyOffset: position + actualStart). morphsReverseDo: [| :m | m drawOn: c]]]. self). } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'Category: contents handling\x7fModuleInfo: Module: scroll InitialContents: FollowSlot' noStickOuts = bootstrap stub -> 'globals' -> 'true' -> (). } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'Category: contents handling\x7fModuleInfo: Module: scroll InitialContents: FollowSlot' noStickOuts: arg = ( | | self). } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'ModuleInfo: Module: scroll InitialContents: FollowSlot' parent* = bootstrap stub -> 'traits' -> 'morph' -> (). } | ) bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'scrollMorph' -> () From: ( | { 'Category: scrolling\x7fModuleInfo: Module: scroll InitialContents: FollowSlot' scrollY: value = ( | origExtent. clipExtent. spaceToScroll. new_y_off <- 0. | "called when using the scrollbar, value in [0.0, 100.0]" origExtent: contents height. clipExtent: baseBounds height. spaceToScroll: origExtent - clipExtent. spaceToScroll > 0 ifTrue: [ new_y_off: (((value/ 100) - 1) * spaceToScroll) asInteger]. y_off = new_y_off ifFalse: [ y_off: new_y_off. changed ]). } | ) '-- Side effects' globals modules scroll postFileIn

1 0

Outliner in scrollMorph
by Michael.Huebner＠PrakInf.TU-Ilmenau.DE 14 Nov '95

14 Nov '95

When you embed an outliner in an scrollMorph, 1) there is a lot of visual output not clipped 2) when the embedded outliner is scrolled down the mouse events are handled according to the original coordinates instead of the shifted ones. I tried to fix that in traits scrollMorph with a modified version of: dispatchEvent: evt At: globalPt = ( dropEvent: evt OnSubmorphsAt: globalPt + (x_off @ y_off) ifHandled: [^self ]. dropEvent: evt OnBaseAt: globalPt) where the adding of (x_off@y_off) to 'globalPt' is the only modification to the original in traits morph. But it didn't work. Michael

1 0

DELETE ME
by moeller＠bihp1.bi.bau.tu-bs.de 13 Nov '95

13 Nov '95

PLEASE DELETE ME FROM MAILING LIST

1 0

UNSUBSCRIBE
by ctaylor＠matisse.eecs.uic.edu 11 Nov '95

11 Nov '95

unsubscribe

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

1994

1993

1992

1991

1990

Self-interest November 1995