TabListEditor.st
changeset 1855 b340a5b9ff78
parent 1845 d6d62913c2cc
child 1856 db8156ab00ae
equal deleted inserted replaced
1854:e7586b506654 1855:b340a5b9ff78
  1619             , Character excla asString , '\\'
  1619             , Character excla asString , '\\'
  1620 
  1620 
  1621             , specSelector , '\'
  1621             , specSelector , '\'
  1622             , (self class codeGenerationComment replChar:$!! withString:'!!!!')
  1622             , (self class codeGenerationComment replChar:$!! withString:'!!!!')
  1623             , '\\    "\'
  1623             , '\\    "\'
  1624             , '     TabListEditor new openOnClass:' , cls name , ' andSelector:#' , specSelector , '\'
  1624             , '     TabListEditor new openOnClass: self andSelector:#' , specSelector , '\'
  1625             , '    "\'.
  1625             , '    "\'.
  1626 
  1626 
  1627     code := code 
  1627     code := code 
  1628             , '\'
  1628             , '\'
  1629             , '    <resource: #tabList>\\'
  1629             , '    <resource: #tabList>\\'