MenuEditor.st
changeset 3237 de989be6d856
parent 3225 cf0556d88d12
child 3243 792a37911b41
equal deleted inserted replaced
3236:2e494c0bcf47 3237:de989be6d856
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1997 by eXept Software AG
     4  COPYRIGHT (c) 1997 by eXept Software AG
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
  2638     specClass isNil ifTrue:[
  2640     specClass isNil ifTrue:[
  2639         self warn:(resources string:'Please define the application class first.').
  2641         self warn:(resources string:'Please define the application class first.').
  2640         ^ self
  2642         ^ self
  2641     ].
  2643     ].
  2642 
  2644 
  2643     selector := (self aspectFor:aspect) value.
  2645     selector := (self aspectValueFor:aspect).
  2644     selector isEmptyOrNil ifTrue:[
  2646     selector isEmptyOrNil ifTrue:[
  2645         Dialog information:(resources string:'Missing name for the action/aspect method.').
  2647         Dialog information:(resources string:'Missing name for the action/aspect method.').
  2646         ^ self
  2648         ^ self
  2647     ].
  2649     ].
  2648     (selector = 'true' or:[selector = 'false']) ifTrue:[^ self].
  2650     (selector = 'true' or:[selector = 'false']) ifTrue:[^ self].