caraway/caraway/Example.st

class NewObject : Object
  '''
  ここからクラス概要の文字列
  何行でも適当につなげる。'も'もok
  '''

  instanceVariableNames: 'name address mail'

  classInstanceVariableNames: 'Name Address Mail'

  sharedVariablesFor: 'As yet classified'

    USTable := Dictionary new
    SharedVariable := nil

  methodsFor: 'accessing'
    "以降インスタンスメソッド"

    at: index put: obj
      'メソッドコメント'
      |obj array|
      obj new.
      array do: [:i| i inspect ].
      http://localhost/index.html asString.
      ^self at: index put: #(1 2 3) char: #<0A FF BE> dict: {'key':'value', 1:2}

    perform: aSelector
    with: firstObject
    with: secondObject
      "長いセレクタは同じインデントで"
      ^self

  classMethodsFor: 'instance creation'
    "以降クラスメソッド"

    from: obj
      ^self basicNew

  "クラス終了記号はない"


class EditingContext
  category: 'EOControl'
    "ObjCのようにしなくてもいい"