equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2009 by eXept Software AG |
2 COPYRIGHT (c) 2009 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2647 newApplicationsName |
2645 newApplicationsName |
2648 <resource: #uiAspect> |
2646 <resource: #uiAspect> |
2649 |
2647 |
2650 "automatically generated by UIPainter ..." |
2648 "automatically generated by UIPainter ..." |
2651 |
2649 |
2652 "*** the code below creates a default model when invoked." |
|
2653 "*** (which may not be the one you wanted)" |
|
2654 "*** Please change as required and accept it in the browser." |
|
2655 "*** (and replace this comment by something more useful ;-)" |
|
2656 |
|
2657 newApplicationsName isNil ifTrue:[ |
2650 newApplicationsName isNil ifTrue:[ |
2658 newApplicationsName := ValueHolder new. |
2651 newApplicationsName := ValueHolder new. |
2659 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
2660 "/ newApplicationsName addDependent:self. |
|
2661 "/ newApplicationsName onChangeSend:#newApplicationsNameChanged to:self. |
|
2662 ]. |
2652 ]. |
2663 ^ newApplicationsName. |
2653 ^ newApplicationsName. |
2664 ! |
2654 ! |
2665 |
2655 |
2666 newProjectsName |
2656 newProjectsName |
2672 ^ newProjectsName. |
2662 ^ newProjectsName. |
2673 ! |
2663 ! |
2674 |
2664 |
2675 newProjectsNameListDoubleClickChannel |
2665 newProjectsNameListDoubleClickChannel |
2676 "automatically generated by UIPainter ..." |
2666 "automatically generated by UIPainter ..." |
2677 |
|
2678 "*** the code below creates a default model when invoked." |
|
2679 "*** (which may not be the one you wanted)" |
|
2680 "*** Please change as required and accept it in the browser." |
|
2681 |
2667 |
2682 |holder| |
2668 |holder| |
2683 |
2669 |
2684 (holder := builder bindingAt:#newProjectsNameListDoubleClickChannel) isNil ifTrue:[ |
2670 (holder := builder bindingAt:#newProjectsNameListDoubleClickChannel) isNil ifTrue:[ |
2685 holder := TriggerValue new. |
2671 holder := TriggerValue new. |
2761 selectedApplicationsComment |
2747 selectedApplicationsComment |
2762 <resource: #uiAspect> |
2748 <resource: #uiAspect> |
2763 |
2749 |
2764 "automatically generated by UIPainter ..." |
2750 "automatically generated by UIPainter ..." |
2765 |
2751 |
2766 "*** the code below creates a default model when invoked." |
|
2767 "*** (which may not be the one you wanted)" |
|
2768 "*** Please change as required and accept it in the browser." |
|
2769 "*** (and replace this comment by something more useful ;-)" |
|
2770 |
|
2771 selectedApplicationsComment isNil ifTrue:[ |
2752 selectedApplicationsComment isNil ifTrue:[ |
2772 selectedApplicationsComment := '' asValue. |
2753 selectedApplicationsComment := '' asValue. |
2773 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
2774 "/ selectedApplicationsComment addDependent:self. |
|
2775 "/ selectedApplicationsComment onChangeSend:#selectedApplicationsCommentChanged to:self. |
|
2776 ]. |
2754 ]. |
2777 ^ selectedApplicationsComment. |
2755 ^ selectedApplicationsComment. |
2778 ! |
2756 ! |
2779 |
2757 |
2780 selectedProjectDefinition |
2758 selectedProjectDefinition |