Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r27 - trunk

genelib
Discussion topic

Back to topic list

svn commit: r27 - trunk

Author lotec
Full name Jan Bogaerts
Date 2006-03-17 08:19:43 PST
Message Author: lotec
Date: Fri Mar 17 08:19:43 2006
New Revision: 27

Modified:
   trunk/Controls.gen
Log:
some updates for listbox (not yet tested, may have broken the build)

Modified: trunk/Controls.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/trunk/Contro​ls.gen?view=diff​&rev=27&p1=trunk​/Controls.gen&r1​=26&p2=trunk/Con​trols.gen&r2=27
====================​====================​====================​==================
--- trunk/Controls.gen (original)
+++ trunk/Controls.gen Fri Mar 17 08:19:43 2006
@@ -330,6 +330,7 @@
 ;
 
 control sGroupBox(sBaseButton) =
+ BeginOfGroup true
  exp CalculateStyle: int override
 ;
 
@@ -1309,37 +1310,39 @@
    iItem ->> nil
 ;
 
-/*
 //list boxes
 //------------------​--------------------​--------------------​--------------------​-------
-space sBaseListBox;
+space sListBox;
 
-space sListBoxItems(sStringList) =
- var Owner: sBaseListBox^
- prop Sorted: bool read var fSorted: bool write exp SetSorted(aValue: bool)
- exp Sort
- operator '<<' AddItem(aItem: sListBoxItems.entity)
- '<<' InsertItem(aItem: sListBoxItems.entity, aBefore: sListBoxItems.entity)
- '>>' Removeitem(aItem: sListBoxItems.entity)
+space sListBoxItem =
+ var Text: string
+ constructor Create virtual = ;
+ destructor Destroy virtual = ;
+;
+
+space sListBoxItems =
+ entity sListBoxItem$
+ store stLinkedList
+ var Owner: sListBox^
+ operator '<<' AddItem(aItem: self.entity)
+ '<<' InsertItem(aItem: self.entity, aBefore: self.entity)
+ '>>' Removeitem(aItem: self.entity)
           '->>' RemoveAllItems
  constructor Create(aOwner: sBaseListBox^) = Owner = aOwner;
 ;
-control sBaseListBox =
+control sListBox =
  controlType 11
  VScroll true
  BorderStyle 7
-// AdditionalStyles LBS_Notify
-// prop ItemIndex: int read exp GetItemIndex: int write exp SetItemIndex(aValue: int) //which item is selected
-// Items: sListBoxItems read var fItems: sListBoxItems.Create(self) //the list of items
-// TopIndex: int read exp GetTopIndex: int write exp SetTopIndex(aValue: int) //Specifies the index number of the item that appears at the top of the list box.
-// AutoRedraw: bool read exp GetAutoRedraw: bool write exp SetAutoRedraw(aValue: bool) //specifies if listbox is automatically redrawn when item is added or not
-// exp select(aStart: string) //selects the first item that begins with the given string
+ AdditionalStyles LBS_Notify
+ prop ItemIndex: int read exp GetItemIndex: int write exp SetItemIndex(aValue: int) //which item is selected
+ Items: sListBoxItems read var fItems: sListBoxItems.Create(self) //the list of items
+ TopIndex: int read exp GetTopIndex: int write exp SetTopIndex(aValue: int) //Specifies the index number of the item that appears at the top of the list box.
+ AutoRedraw: bool read exp GetAutoRedraw: bool write exp SetAutoRedraw(aValue: bool) //specifies if listbox is automatically redrawn when item is added or not
+ prop Sorted: bool read var fSorted: bool write exp SetSorted(aValue: bool)
+ exp select(aStart: string) //selects the first item that begins with the given string
 ;
 
-control sMultiSelBaseListBox​(sBaseListBox) =
-// AdditionalStyles LBS_MultipleSel
- #adwarning('sMultiSe​lBaseListBox not yet ready')
-;
 
 exp sListBoxItems.SetSorted(aValue: bool)
 =
@@ -1382,7 +1385,6 @@
    #AddWarning('still have to check if the RemoveAllItems(clear) operator overloader is also called ')
 ;
 
-*/
 
 //Tab control
 //------------------​--------------------​--------------------​--------------------​-------

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r27 - trunk lotec Jan Bogaerts 2006-03-17 08:19:43 PST
Messages per page: