SystemBrowser.st
branchjv
changeset 16848 d4200cb12374
parent 16694 715f1da6f138
parent 16847 b4eddbe34078
child 16869 2ecababdd4c0
equal deleted inserted replaced
16845:4fe165efc72c 16848:d4200cb12374
   381     ^ UserPreferences systemBrowserClass
   381     ^ UserPreferences systemBrowserClass
   382 
   382 
   383     "   
   383     "   
   384      SystemBrowser default open
   384      SystemBrowser default open
   385     "
   385     "
       
   386 !
       
   387 
       
   388 largeLabelFont
       
   389     ^ Label defaultFont scaled:1.2.
   386 !
   390 !
   387 
   391 
   388 methodTemplate
   392 methodTemplate
   389     "return a method definition template string or nil"
   393     "return a method definition template string or nil"
   390 
   394 
  2415 
  2419 
  2416     "Created: / 30.10.1997 / 19:07:29 / cg"
  2420     "Created: / 30.10.1997 / 19:07:29 / cg"
  2417 !
  2421 !
  2418 
  2422 
  2419 methodMoveDialogSpec
  2423 methodMoveDialogSpec
  2420     "this window spec was automatically generated by the ST/X UIPainter"
  2424     "This resource specification was automatically generated
  2421 
  2425      by the UIPainter of ST/X."
  2422     "do not manually edit this - the painter/builder may not be able to
  2426 
  2423      handle the specification if its corrupted."
  2427     "Do not manually edit this!! If it is corrupted,
       
  2428      the UIPainter may not be able to read the specification."
  2424 
  2429 
  2425     "
  2430     "
  2426      UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
  2431      UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
  2427      SystemBrowser new openDialogInterface:#methodMoveDialogSpec
  2432      SystemBrowser new openInterface:#methodMoveDialogSpec
  2428     "
  2433     "
  2429 
  2434 
  2430     <resource: #canvas>
  2435     <resource: #canvas>
  2431 
  2436 
  2432     ^
  2437     ^ 
  2433      
  2438     #(FullSpec
  2434        #(#FullSpec
  2439        name: methodMoveDialogSpec
  2435           #'window:' 
  2440        window: 
  2436            #(#WindowSpec
  2441       (WindowSpec
  2437               #'name:' 'uIPainterView'
  2442          label: 'move method'
  2438               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
  2443          name: 'move method'
  2439               #'label:' 'move method'
  2444          bounds: (Rectangle 0 0 387 118)
  2440               #'bounds:' #(#Rectangle 0 0 279 118)
  2445        )
       
  2446        component: 
       
  2447       (SpecCollection
       
  2448          collection: (
       
  2449           (HorizontalPanelViewSpec
       
  2450              name: 'horizontalPanelView'
       
  2451              layout: (LayoutFrame 0 0.0 -35 1.0 0 1.0 -2 1.0)
       
  2452              level: 0
       
  2453              horizontalLayout: fitSpace
       
  2454              verticalLayout: center
       
  2455              horizontalSpace: 4
       
  2456              verticalSpace: 4
       
  2457              component: 
       
  2458             (SpecCollection
       
  2459                collection: (
       
  2460                 (ActionButtonSpec
       
  2461                    label: 'cancel'
       
  2462                    name: 'actionButton2'
       
  2463                    translateLabel: true
       
  2464                    tabable: true
       
  2465                    model: cancel
       
  2466                    extent: (Point 187 27)
       
  2467                  )
       
  2468                 (ActionButtonSpec
       
  2469                    label: 'move'
       
  2470                    name: 'actionButton1'
       
  2471                    translateLabel: true
       
  2472                    tabable: true
       
  2473                    model: accept
       
  2474                    isDefault: true
       
  2475                    extent: (Point 188 27)
       
  2476                  )
       
  2477                 )
       
  2478               
       
  2479              )
       
  2480            )
       
  2481           (LabelSpec
       
  2482              label: 'move current method to which class:'
       
  2483              name: 'label'
       
  2484              layout: (LayoutFrame 2 0 2 0 -2 1.0 25 0)
       
  2485              style: largeLabelFont
       
  2486              foregroundColor: (Color 0.0 0.0 0.0)
       
  2487              backgroundColor: (Color 67.0 67.0 67.0)
       
  2488              translateLabel: true
       
  2489              adjust: left
       
  2490            )
       
  2491           (ComboBoxSpec
       
  2492              name: 'comboBox1'
       
  2493              layout: (LayoutFrame 2 0 29 0 -2 1.0 51 0)
       
  2494              tabable: true
       
  2495              model: className
       
  2496              comboList: classList
       
  2497            )
  2441           )
  2498           )
  2442           #'component:' 
  2499         
  2443            #(#SpecCollection
  2500        )
  2444               #'collection:' 
  2501      )
  2445                #(
       
  2446                  #(#HorizontalPanelViewSpec
       
  2447                     #'name:' 'horizontalPanelView'
       
  2448                     #'layout:' #(#LayoutFrame 0 0.0 -35 1.0 0 1.0 -2 1.0)
       
  2449                     #'component:' 
       
  2450                      #(#SpecCollection
       
  2451                         #'collection:' 
       
  2452                          #(
       
  2453                            #(#ActionButtonSpec
       
  2454                               #'name:' 'actionButton2'
       
  2455                               #'label:' 'cancel'
       
  2456                               #'tabable:' true
       
  2457                               #'model:' #cancel
       
  2458                               #'extent:' #(#Point 133 27)
       
  2459                           )
       
  2460                            #(#ActionButtonSpec
       
  2461                               #'name:' 'actionButton1'
       
  2462                               #'label:' 'move'
       
  2463                               #'tabable:' true
       
  2464                               #'isDefault:' true
       
  2465                               #'model:' #accept
       
  2466                               #'extent:' #(#Point 134 27)
       
  2467                           )
       
  2468                         )
       
  2469                     )
       
  2470                     #'level:' 0
       
  2471                     #'horizontalLayout:' #fitSpace
       
  2472                     #'verticalLayout:' #center
       
  2473                     #'horizontalSpace:' 4
       
  2474                     #'verticalSpace:' 4
       
  2475                 )
       
  2476                  #(#LabelSpec
       
  2477                     #'name:' 'label'
       
  2478                     #'layout:' #(#LayoutFrame 2 0 2 0 -2 1.0 25 0)
       
  2479                     #'label:' 'move current method to which class:'
       
  2480                     #'style:' 
       
  2481                      #(#Font
       
  2482                         'helvetica' 'medium'
       
  2483                         'roman' 12
       
  2484                     )
       
  2485                     #'foregroundColor:' #(#Color 0.0 0.0 0.0)
       
  2486                     #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
       
  2487                     #'adjust:' #left
       
  2488                 )
       
  2489                  #(#ComboBoxSpec
       
  2490                     #'name:' 'comboBox1'
       
  2491                     #'layout:' #(#LayoutFrame 2 0 29 0 -2 1.0 51 0)
       
  2492                     #'tabable:' true
       
  2493                     #'model:' #className
       
  2494                     #'comboList:' #classList
       
  2495                 )
       
  2496               )
       
  2497           )
       
  2498       )
       
  2499 
       
  2500     "Created: 25.6.1997 / 13:45:20 / cg"
       
  2501     "Modified: 25.6.1997 / 13:46:44 / cg"
       
  2502 ! !
  2502 ! !
  2503 
  2503 
  2504 !SystemBrowser class methodsFor:'private-helpers'!
  2504 !SystemBrowser class methodsFor:'private-helpers'!
  2505 
  2505 
  2506 askForPackageChangeFrom:oldPkg to:newPkg
  2506 askForPackageChangeFrom:oldPkg to:newPkg