Tools__ProjectList.st
changeset 15201 4b6a65f302f2
parent 15132 a7ac237b9132
child 15566 184cea584be5
child 15646 ff1f29c6677d
equal deleted inserted replaced
15200:9e2705b68633 15201:4b6a65f302f2
    93 
    93 
    94     "Do not manually edit this!! If it is corrupted,
    94     "Do not manually edit this!! If it is corrupted,
    95      the UIPainter may not be able to read the specification."
    95      the UIPainter may not be able to read the specification."
    96 
    96 
    97     "
    97     "
    98      UIPainter new openOnClass:ProjectList andSelector:#windowSpec
    98      UIPainter new openOnClass:Tools::ProjectList andSelector:#windowSpec
    99      ProjectList new openInterface:#windowSpec
    99      Tools::ProjectList new openInterface:#windowSpec
   100      ProjectList open
   100      Tools::ProjectList open
   101     "
   101     "
   102 
   102 
   103     <resource: #canvas>
   103     <resource: #canvas>
   104 
   104 
   105     ^ 
   105     ^ 
   106      #(#FullSpec
   106     #(FullSpec
   107         #name: #windowSpec
   107        name: windowSpec
   108         #window: 
   108        window: 
   109        #(#WindowSpec
   109       (WindowSpec
   110           #label: 'ProjectList'
   110          label: 'ProjectList'
   111           #name: 'ProjectList'
   111          name: 'ProjectList'
   112           #min: #(#Point 0 0)
   112          min: (Point 0 0)
   113           #bounds: #(#Rectangle 13 23 313 323)
   113          bounds: (Rectangle 0 0 300 300)
   114         )
   114        )
   115         #component: 
   115        component: 
   116        #(#SpecCollection
   116       (SpecCollection
   117           #collection: #(
   117          collection: (
   118            #(#SequenceViewSpec
   118           (SequenceViewSpec
   119               #name: 'List'
   119              name: 'List'
   120               #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   120              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   121               #tabable: true
   121              tabable: true
   122               #model: #selectionIndexHolder
   122              model: selectionIndexHolder
   123               #menu: #menuHolder
   123              menu: menuHolder
   124               #hasHorizontalScrollBar: true
   124              hasHorizontalScrollBar: true
   125               #hasVerticalScrollBar: true
   125              hasVerticalScrollBar: true
   126               #miniScrollerHorizontal: true
   126              miniScrollerHorizontal: true
   127               #isMultiSelect: true
   127              isMultiSelect: true
   128               #valueChangeSelector: #selectionChangedByClick
   128              valueChangeSelector: selectionChangedByClick
   129               #useIndex: true
   129              useIndex: true
   130               #sequenceList: #projectNameList
   130              sequenceList: projectNameList
   131               #doubleClickChannel: #doubleClickChannel
   131              doubleClickChannel: doubleClickChannel
   132               #properties: 
   132              postBuildCallback: postBuildProjectListView:
   133              #(#PropertyListDictionary
   133              properties: 
   134                 #dragArgument: nil
   134             (PropertyListDictionary
   135                 #dropArgument: nil
   135                canDropSelector: canDropContext:
   136                 #canDropSelector: #canDropContext:
   136                dropArgument: nil
   137                 #dropSelector: #doDropContext:
   137                dropSelector: doDropContext:
   138               )
   138                dragArgument: nil
   139             )
   139              )
   140            )
   140            )
   141 
   141           )
   142         )
   142         
   143       )
   143        )
   144 
   144      )
   145     "Created: / 17.2.2000 / 23:45:47 / cg"
   145 ! !
   146     "Modified: / 17.2.2000 / 23:47:53 / cg"
   146 
   147 ! !
   147 !ProjectList class methodsFor:'plugIn spec'!
   148 
       
   149 !ProjectList class methodsFor:'queries-plugin'!
       
   150 
   148 
   151 aspectSelectors
   149 aspectSelectors
   152     ^ #( 
   150     "This resource specification was automatically generated
   153         environmentHolder
   151      by the UIPainter of ST/X."
   154         #(#doubleClickChannel #action )
   152 
   155         immediateUpdate 
   153     "Do not manually edit this. If it is corrupted,
   156         selectedProjects 
   154      the UIPainter may not be able to read the specification."
   157         menuHolder 
   155 
   158         outGeneratorHolder 
   156     "Return a description of exported aspects;
   159         inGeneratorHolder 
   157      these can be connected to aspects of an embedding application
   160         selectionChangeCondition
   158      (if this app is embedded in a subCanvas)."
   161         updateTrigger
   159 
   162         forceGeneratorTrigger
   160     ^ #(
   163         hideUnloadedClasses
   161         #(doubleClickChannel action)
   164         organizerMode
   162         #environmentHolder
   165         slaveMode
   163         #forceGeneratorTrigger
   166        )
   164         #hideUnloadedClasses
   167 
   165         #immediateUpdate
   168     "Created: / 17-02-2000 / 23:46:18 / cg"
   166         #inGeneratorHolder
   169     "Modified: / 25-02-2000 / 22:32:10 / cg"
   167         #menuHolder
   170     "Modified: / 24-02-2014 / 10:37:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   168         #organizerMode
       
   169         #outGeneratorHolder
       
   170         #selectedProjects
       
   171         #selectionChangeCondition
       
   172         #slaveMode
       
   173         #updateTrigger
       
   174       ).
       
   175 
   171 ! !
   176 ! !
   172 
   177 
   173 !ProjectList methodsFor:'accessing'!
   178 !ProjectList methodsFor:'accessing'!
   174 
   179 
   175 includedPseudoEntryForChanged:something
   180 includedPseudoEntryForChanged:something
   678     selectionIndexValid := false.
   683     selectionIndexValid := false.
   679 
   684 
   680     "Created: / 14-12-2010 / 15:41:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   685     "Created: / 14-12-2010 / 15:41:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   681 !
   686 !
   682 
   687 
       
   688 postBuildProjectListView:projectListView
       
   689     projectListView allowDrag:true.
       
   690     projectListView 
       
   691         dragObjectConverter:[:obj :idx | 
       
   692             |project|
       
   693 
       
   694             project := projectList value at:idx.
       
   695             DropObject newProject:project.
       
   696         ].
       
   697 !
       
   698 
   683 release
   699 release
   684     super release.
   700     super release.
   685 
   701 
   686     projectList removeDependent:self.
   702     projectList removeDependent:self.
   687 ! !
   703 ! !
  1027 ! !
  1043 ! !
  1028 
  1044 
  1029 !ProjectList class methodsFor:'documentation'!
  1045 !ProjectList class methodsFor:'documentation'!
  1030 
  1046 
  1031 version
  1047 version
  1032     ^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectList.st,v 1.73 2015-01-31 12:47:11 cg Exp $'
  1048     ^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectList.st,v 1.74 2015-02-04 23:15:15 cg Exp $'
  1033 !
  1049 !
  1034 
  1050 
  1035 version_CVS
  1051 version_CVS
  1036     ^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectList.st,v 1.73 2015-01-31 12:47:11 cg Exp $'
  1052     ^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectList.st,v 1.74 2015-02-04 23:15:15 cg Exp $'
  1037 ! !
  1053 ! !
  1038 
  1054