TabListEditor.st
changeset 3590 885f170ab630
parent 3584 0651c38418c7
child 3663 9d49ecf8661a
equal deleted inserted replaced
3589:e76569140275 3590:885f170ab630
  1678     code := code 
  1678     code := code 
  1679             , '\'
  1679             , '\'
  1680             , '    <resource: #tabList>\\'
  1680             , '    <resource: #tabList>\\'
  1681             , '    ^' 
  1681             , '    ^' 
  1682             , '     ', spec, '\'
  1682             , '     ', spec, '\'
  1683             , '      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]'
  1683             , '      collect:#decodeAsLiteralArray "[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]"'
  1684             , '\'
  1684             , '\'
  1685             , Character excla asString
  1685             , Character excla asString
  1686             , ' '
  1686             , ' '
  1687             , Character excla asString
  1687             , Character excla asString
  1688             , '\'.
  1688             , '\'.
  1704     self addHistoryEntryForClass:cls selector:specSelector.
  1704     self addHistoryEntryForClass:cls selector:specSelector.
  1705     self clearModified.
  1705     self clearModified.
  1706     hasSaved  := true.
  1706     hasSaved  := true.
  1707 
  1707 
  1708     "Modified: / 28-01-2014 / 21:56:54 / cg"
  1708     "Modified: / 28-01-2014 / 21:56:54 / cg"
  1709     "Modified: / 06-08-2018 / 13:33:09 / Claus Gittinger"
  1709     "Modified: / 11-08-2018 / 18:52:00 / Claus Gittinger"
  1710 !
  1710 !
  1711 
  1711 
  1712 openDocumentation
  1712 openDocumentation
  1713    self openHTMLDocument:'tools/uipainter/TabListEditor.html'.
  1713    self openHTMLDocument:'tools/uipainter/TabListEditor.html'.
  1714 ! !
  1714 ! !