@@ -7,9 +7,9 @@ AudioMixer := Object clone do( self mixed := Sequence clone ) - newSlot("streamDestination", AudioDevice) - newSlot("processedSamples", 0) - newSlot("isRunning", false) + streamDestination ::= AudioDevice + processedSamples ::= 0 + isRunning ::= false addSource := method(s, sources append(s)) removeSource := method(s, sources remove(s)) addons/AVCodec/samples/mp3filestream.io @@ -3,9 +3,9 @@ VideoDecoder := AVCodec clone do( newSlot("internalCoro") newSlot("externalCoro") - newSlot("frameNumber", 0) - newSlot("sampleRateConverter", nil) - newSlot("audioOn", false) + frameNumber ::= 0 + sampleRateConverter ::= nil + audioOn ::= false isDone ::= false init := method( addons/AVCodec/samples/video.io @@ -4,8 +4,8 @@ */ CFFI Function do( - newSlot("library", Library) - newSlot("name", "") - newSlot("returnType", "") - newSlot("argumentTypes", "") + library ::= Library + name ::= "" + returnType ::= "" + argumentTypes ::= "" ) addons/CFFI/io/Function.io @@ -10,7 +10,7 @@ Lobby exit := method(Curses end; System exit) Inspector := Object clone do( _object := Lobby offset := 0 - newSlot("selectedSlotName", "") + selectedSlotName ::= "" objectStack := List clone objectSlotNames := method(object slotNames sort) addons/Curses/samples/browser.io @@ -15,7 +15,7 @@ Lobby exit := method(Curses end; System exit) Outliner := Object clone do( _object := Lobby - newSlot("selectedSlotName", "") + selectedSlotName ::= "" init := method( resend addons/Curses/samples/docsbrowser.io @@ -2,7 +2,7 @@ ColumnView := VScrollArea clone do( textures := TextureGroup clone loadGroupNamed("ColumnView") selectedItem := nil - newSlot("delegate", nil) + delegate ::= nil init := method( resend addons/Flux/io/Flux/Views/ColumnView.io @@ -12,7 +12,7 @@ form := CGI parse Page := Object clone do( type := "Page" - newSlot("folder", Directory clone) + folder ::= Directory clone init := method( resend addons/Flux/samples/Debugger/menu.io @@ -148,7 +148,7 @@ MessageView := View clone do( size set(Screen width, Screen height) resizeWithSuperview - newSlot("textColor", Point clone set(0,0,0,1)) + textColor ::= Point clone set(0,0,0,1) cursorImage := Image clone open("cursor.tif") addons/Flux/samples/Debugger/messageview.io @@ -1,13 +1,13 @@ Background := View clone do( - newSlot("gridSize", 10) + gridSize ::= 10 setBackgroundColor(Point clone set(.1, .1, .1, 1)) setOutlineColor(Point clone set(1, 1, 1, .03)) resizeWidthWithSuperview resizeHeightWithSuperview - newSlot("selectionArea", nil) + selectionArea ::= nil - newSlot("lastBox", nil) + lastBox ::= nil doubleLeftMouseDown := method( box := DBox clone addons/Flux/samples/Diagram/Background.io @@ -20,7 +20,7 @@ DBox := View clone do( isBox := true size set(140, 30) - newSlot("selectedColor", Point clone set(.1, .8, .1, 1)) + selectedColor ::= Point clone set(.1, .8, .1, 1) setOutlineColor(Point clone set(.3, .3, .3, .95)) setBackgroundColor(Point clone set(.2, .2, .2, 1)) addons/Flux/samples/Diagram/DBox.io @@ -32,7 +32,7 @@ LabelView := TextField clone do( font drawString(renderString) ) - newSlot("isActive", false) + isActive ::= false leftMouseDown := method( if(isActive, resend, superview ?leftMouseDown) addons/Flux/samples/Diagram/LabelView.io @@ -1,16 +1,16 @@ LineView := View clone do( appendProto(Selectable) - newSlot("origin", Point clone) - newSlot("endpoint", Point clone) + origin ::= Point clone + endpoint ::= Point clone - newSlot("selectedColor", Point clone set(.1, .475, .1, 1)) - newSlot("lineColor", Point clone set(.3, .3, .3, 1)) + selectedColor ::= Point clone set(.1, .475, .1, 1) + lineColor ::= Point clone set(.3, .3, .3, 1) - newSlot("isDangling", true) - newSlot("isAttached", false) + isDangling ::= true + isAttached ::= false - newSlot("hitThreshold", 6) + hitThreshold ::= 6 init := method( setOrigin(Point clone) addons/Flux/samples/Diagram/LineView.io @@ -1,5 +1,5 @@ Selectable := Object clone do( - newSlot("isSelected", false) + isSelected ::= false unselect := method(setIsSelected(false)) select := method(setIsSelected(true); setMoveOffset; self) addons/Flux/samples/Diagram/Selectable.io @@ -18,7 +18,7 @@ app := Application clone do( ) CloseButton := View clone do( - newSlot("target", nil) + target ::= nil size set(20, 20) draw := method( @@ -40,9 +40,9 @@ CloseButton := View clone do( Lobby type := "Lobby" ObjectView := View clone do( - newSlot("title", "Lobby") - newSlot("next", nil) - newSlot("previous", nil) + title ::= "Lobby" + next ::= nil + previous ::= nil setTarget := method(t, writeln("OV setTarget") addons/Flux/samples/Self/main.io @@ -12,8 +12,8 @@ Slide := Object clone do( appendProto(OpenGL) - newSlot("title", "") - newSlot("bulletPoints", "") + title ::= "" + bulletPoints ::= "" width := method(app width) height := method(app height) titleRatio := .95 addons/Flux/samples/Slideshow/main.io @@ -1,6 +1,6 @@ SJItem := Object clone do( - newSlot("path", "/") + path ::= "/" init := method( self items := nil addons/Flux/samples/SongJam/SJItem.io @@ -6,7 +6,7 @@ Song := Object clone do( tracks empty ) - newSlot("path", Path with(System launchPath, "Songs/Default.songjam")) + path ::= Path with(System launchPath, "Songs/Default.songjam") open := method( removeAllTracks addons/Flux/samples/SongJam/Song.io @@ -7,8 +7,8 @@ SongJamNode := Object clone do( getfile := "http://www.songjam.com/sjremote.php?issh=[sessionkey]&page=sjmemberdownload&file=[path]" ) - newSlot("username", "xxx") - newSlot("password", "yyy") + username ::= "xxx" + password ::= "yyy" urlNamed := method(name, url := protocol getSlot(name) asMutable @@ -34,7 +34,7 @@ SongJamNode := Object clone do( sessionKey := nil completed := nil - newSlot("path", "/") + path ::= "/" setPath := method(p, if (p == "", p = "/") addons/Flux/samples/SongJam/SongJamNode.io @@ -3,7 +3,7 @@ TracksView := View clone do( protoName := "TracksView" tracks := method(subviews) - newSlot("delegate", nil) + delegate ::= nil soloTracks := 0 addTrack := method(track, @@ -61,7 +61,7 @@ TracksView := View clone do( /* --- Song -------------------------------- */ - newSlot("path", Path with(System launchPath, "Songs/Default.songjam")) + path ::= Path with(System launchPath, "Songs/Default.songjam") open := method(p, if (p, setPath(p)) addons/Flux/samples/SongJam/TracksView.io @@ -3,9 +3,9 @@ Terminal := GLApp clone Terminal do( setAppName("Terminal") - newSlot("leftMargin", 10) - newSlot("bottomMargin", 10) - newSlot("prompt", "Io> ") + leftMargin ::= 10 + bottomMargin ::= 10 + prompt ::= "Io> " font := Font clone open("../../Flux/resources/fonts/ProFont/Mono/Normal.ttf") setPixelSize(25) lines := List clone append(Sequence clone with(prompt)) addons/Font/samples/Terminal.io @@ -14,8 +14,8 @@ Slide := Object clone do( appendProto(OpenGL) - newSlot("title", "") - newSlot("bulletPoints", "") + title ::= "" + bulletPoints ::= "" width := method(app width) height := method(app height) titleRatio := .95 addons/Font/samples/slides.io @@ -1,8 +1,8 @@ method( m := message( - newSlot("inputBuffer", nil) - newSlot("outputBuffer", nil) + inputBuffer ::= nil + outputBuffer ::= nil init := method( setInputBuffer(Sequence clone) addons/LZO/io/LZO.io @@ -7,9 +7,9 @@ AudioMixer := Object clone do( self mixed := Sequence clone ) - newSlot("streamDestination", AudioDevice) - newSlot("processedSamples", 0) - newSlot("isRunning", false) + streamDestination ::= AudioDevice + processedSamples ::= 0 + isRunning ::= false addSource := method(s, sources append(s)) removeSource := method(s, sources remove(s)) addons/LibSndFile/samples/mp3filestream.io @@ -17,7 +17,7 @@ Loki Implementation linkToAs( Sequence, "getByteStringPointer" ) with( Chrono := Object clone do( - newSlot("timer",0) + timer ::= 0 // init := method( self timer := 0 ) addons/Loki/tests/correctness/testcg.io @@ -33,8 +33,8 @@ appendProto(OpenGL) # Glut events object Screen := Object clone do( - newSlot("width", 512) - newSlot("height", 512) + width ::= 512 + height ::= 512 reshape := method( w, h, setWidth(w) setHeight(h) addons/ODE/samples/extras/tutorial2.1.io @@ -34,8 +34,8 @@ appendProto(OpenGL) # Glut events object Screen := Object clone do( - newSlot("width", 512) - newSlot("height", 512) + width ::= 512 + height ::= 512 reshape := method( w, h, setWidth(w) setHeight(h) addons/ODE/samples/extras/tutorial2.2.io @@ -32,8 +32,8 @@ appendProto(OpenGL) # Glut events object Screen := Object clone do( - newSlot("width", 512) - newSlot("height", 512) + width ::= 512 + height ::= 512 reshape := method( w, h, setWidth(w) setHeight(h) addons/ODE/samples/tutorial2.io @@ -125,12 +125,12 @@ contactgroup := world JointGroup clone # Glut events object Screen := Object clone do( - newSlot("width", 640) - newSlot("height", 480) + width ::= 640 + height ::= 480 - newSlot("state", 0) - newSlot("counter", 0) - newSlot("objCount", 0) + state ::= 0 + counter ::= 0 + objCount ::= 0 reshape := method( w, h, setWidth(w) setHeight(h) addons/ODE/samples/tutorial3.io @@ -15,8 +15,8 @@ Font drawOffsetString := method(text, offset, GLApp := Object clone do( //metadoc GLApp category Graphics appendProto(OpenGL) - newSlot("width", 1024) - newSlot("height", 768) + width ::= 1024 + height ::= 768 didReshape := nil @@ -68,7 +68,7 @@ GLApp := Object clone do( timer := method(nil) - newSlot("appName", "io") + appName ::= "io" didToggleFullScreen := nil addons/OpenGL/io/GLApp.io @@ -1,9 +1,9 @@ ResourceManager := Object clone do( - newSlot("type", "ResourceManager") + type ::= "ResourceManager" - newSlot("resourcesPath", Path with(Flux fluxPath, "resources")) - newSlot("interfaceToolkit", "Flux") + resourcesPath ::= Path with(Flux fluxPath, "resources") + interfaceToolkit ::= "Flux" /* setResourcesPath := method(path, addons/OpenGL/io/ResourceManager.io @@ -69,7 +69,7 @@ AudioMixer2 := Object clone do( self mixed := Sequence clone setItemType("float32") ) - newSlot("isRunning", false) + isRunning ::= false play := method(buf, buffers append(buf clone setItemType("float32"))) addons/PortAudio/io/PortAudio.io @@ -17,11 +17,11 @@ Rational := Object clone do( //doc Rational numerator Returns the numerator. //doc Rational setNumerator(aNumber) Sets the numerator. Returns self. - newSlot("numerator", 0) + numerator ::= 0 //doc Rational denominator Returns the denominator. //doc Rational setDenominator(aNumber) Sets the denominator. Returns self. - newSlot("denominator", 0) + denominator ::= 0 //doc Rational with(aNumerator, aDenominator) Convenience constructor. Returns a new Rational number whose numerator and denominator are represented by the arguments aNumerator and aDenominator respectively.") with := method(n, d, addons/Rational/io/Rational.io @@ -7,9 +7,9 @@ AudioMixer := Object clone do( self mixed := Sequence clone ) - newSlot("streamDestination", AudioDevice) - newSlot("processedSamples", 0) - newSlot("isRunning", false) + streamDestination ::= AudioDevice + processedSamples ::= 0 + isRunning ::= false addSource := method(s, sources append(s)) removeSource := method(s, sources remove(s)) addons/SampleRateConverter/samples/mp3filestream.io @@ -4,8 +4,8 @@ SecureServer do( debugOn := method(self debugWriteln := getSlot("writeln")) //debugOn - newSlot("coro", nil) - newSlot("dispatchCoro", nil) + coro ::= nil + dispatchCoro ::= nil rawUseTLS := getSlot("useTLS") rawUseDTLS := getSlot("useDTLS") addons/SecureSocket/io/SecureServer.io @@ -50,7 +50,7 @@ SecureSocket do( self readBuffer := Sequence clone self writeBuffer := Sequence clone self readEvent := self - self newSlot("coro", nil) + coro ::= nil self waitOn := method( if(rbioReady, debugWriteln("bio already ready"); return true) debugWriteln("fauxread") addons/SecureSocket/io/SecureSocket.io @@ -13,7 +13,7 @@ CursesView := Object clone do( size = size clone ) - newSlot("superview", nil) + superview ::= nil redisplay := method(superview ?redisplay) draw := method( @@ -79,8 +79,8 @@ CursesScreen := Object clone do( //size = size + 1 ) - newSlot("firstResponder", nil) - newSlot("needsDisplay", 1) + firstResponder ::= nil + needsDisplay ::= 1 redisplay := method(needsDisplay = 1) debugMessage := "" @@ -112,10 +112,10 @@ CursesScreen := Object clone do( // ---------------------------------------- CursesItem := Object clone do( - newSlot("object", nil) + object ::= nil setObject := method(v, object = getSlot("v"); self) - newSlot("title", "") - newSlot("isSelected", nil) + title ::= "" + isSelected ::= nil subitems := method( items := List clone @@ -138,8 +138,8 @@ CursesItem := Object clone do( ) CursesColumn := CursesView clone do( - newSlot("delegate", nil) - newSlot("selectedIndex", 0) + delegate ::= nil + selectedIndex ::= 0 size setWidth(30) draw := method( w := size width addons/Socket/samples/IRC/CursesScreen.io @@ -34,10 +34,10 @@ IoGoogleFeed := Feed clone do( IRCClient := Object clone do( socket := Socket clone - newSlot("nickName", "ioalertbot") - newSlot("userName", nickName) - newSlot("userEmail", nickName .. "@foo.com") - newSlot("channel", "io") + nickName ::= "ioalertbot" + userName ::= nickName + userEmail ::= nickName .. "@foo.com" + channel ::= "io" feeds := list(IoMailingListFeed) login := method( addons/Socket/samples/IRC/IoBot.io @@ -1,10 +1,10 @@ - v := Object clone do( - newSlot("from", "") - newSlot("to", nil) - newSlot("cc", nil) - newSlot("subject", "") - newSlot("content", "") +v := Object clone do( + from ::= "" + to ::= nil + cc ::= nil + subject ::= "" + content ::= "" mailServerAddress := method( host := to split("@") last addons/Socket/samples/MiniEmailServer.io @@ -7,9 +7,9 @@ AudioMixer := Object clone do( self mixed := Sequence clone ) - newSlot("streamDestination", AudioDevice) - newSlot("processedSamples", 0) - newSlot("isRunning", false) + streamDestination ::= AudioDevice + processedSamples ::= 0 + isRunning ::= false addSource := method(s, sources append(s)) removeSource := method(s, sources remove(s)) addons/SoundTouch/samples/mp3filestream.io @@ -1,14 +1,14 @@ SystemCall do( - newSlot("command", "") - newSlot("isRunning", false) - newSlot("returnCode", nil) - newSlot("stdin", nil) - newSlot("stdout", nil) - newSlot("stderr", nil) - newSlot("arguments", nil) - newSlot("environment", Map clone) + command ::= "" + isRunning ::= false + returnCode ::= nil + stdin ::= nil + stdout ::= nil + stderr ::= nil + arguments ::= nil + environment ::= Map clone init := method( self arguments := List clone addons/SystemCall/io/SystemCall.io @@ -1,6 +1,6 @@ ZlibDecoder do( - newSlot("inputBuffer", nil) - newSlot("outputBuffer", nil) + inputBuffer ::= nil + outputBuffer ::= nil init := method( setInputBuffer(Sequence clone) addons/Zlib/io/Zlib.io @@ -110,7 +110,7 @@ TestSuite := Object clone do( path asMutable pathComponent lastPathComponent ) - newSlot("path", ".") + path ::= "." /*doc TestSuite run Collects and all files named *Test.io within the System launchPath directory, libs/iovm/io/UnitTest.io @@ -1,14 +1,14 @@ CLI := Object clone do( - newSlot("prompt", "Io> ") - newSlot("outPrompt", "==> ") - newSlot("continuedLinePrompt", " ") + prompt ::= "Io> " + outPrompt ::= "==> " + continuedLinePrompt ::= " " - newSlot("context", method(Lobby)) - newSlot("isRunning", true) + context ::= method(Lobby) + isRunning ::= true - newSlot("commandLineLabel", "Command Line") + commandLineLabel ::= "Command Line" - newSlot("lineReader" , nil) + lineReader ::= nil stop := method(setIsRunning(false)) libs/iovm/io/Z_CLI.io @@ -3,8 +3,8 @@ //Collector debugOn Test := Object clone do( - newSlot("next", nil) - newSlot("id", nil) + next ::= nil + id ::= nil ping := method( //writeln("ping ", id) if(next, next @@ping) samples/misc/ErlangChallenge.io @@ -41,9 +41,9 @@ slotNames := list( "instantiations") SpeedTestResult := Object clone do( - newSlot("name", "") - newSlot("color", "#888888") - newSlot("fontColor", "#aaaaaa") + name ::= "" + color ::= "#888888" + fontColor ::= "#aaaaaa" showBarFor := method(slotName, scale, value := self getSlot(slotName) samples/speed/speedResults.io 09b3e3dee2f3394c57e9f1f20746f9266cae5861 Manfred Kroehnert Atomixx42@gmail.com http://github.com/stevedekorte/io/commit/4f86987e763c7ab81004de44f0b057ba537edb88 4f86987e763c7ab81004de44f0b057ba537edb88 2008-12-27T03:26:44-08:00 2008-12-27T03:26:44-08:00 use ::= instead of newSlot() ::= is syntactic sugar for newSlot() 9b226c9461bf0fa3e9c9c68297dce34fb87c79ec Manfred Kroehnert Atomixx42@gmail.com