← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to fcl/tests/tstelgtk.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fcl/tests/tstelgtk.pp
13
13
{ ---------------------------------------------------------------------
14
14
    Main form class
15
15
  ---------------------------------------------------------------------}
16
 
  
 
16
 
17
17
 
18
18
Type
19
19
  TMainForm = Class(TFPGtkWindow)
43
43
  SInformation    = 'Information';
44
44
  SWarning        = 'Warning';
45
45
  SError          = 'Error';
46
 
  SDebug          = 'Debug'; 
 
46
  SDebug          = 'Debug';
47
47
 
48
48
{ ---------------------------------------------------------------------
49
49
    Form Creation
50
50
  ---------------------------------------------------------------------}
51
 
    
 
51
 
52
52
Constructor TMainForm.Create;
53
53
 
54
54
begin
59
59
Procedure TMainForm.CreateWindow;
60
60
 
61
61
  Procedure AddRG(C : String);
62
 
  
 
62
 
63
63
  Var
64
64
    RB : TFPgtkRadioButton;
65
65
 
92
92
     RGMsgType.PackInBox(RGBox,True,False,False,2);
93
93
  Finally
94
94
    S.Free;
95
 
  end;  
 
95
  end;
96
96
  FLMsg:=TfpGtkLabel.Create(SMessage);
97
97
  FMsg:=TfpGtkEntry.Create;
98
98
  FHBox:=TFPgtkHbox.Create;
123
123
{ ---------------------------------------------------------------------
124
124
    Callback events
125
125
  ---------------------------------------------------------------------}
126
 
  
 
126
 
127
127
Procedure TMainForm.BSendClicked(Sender : TFPgtkObject; Data : Pointer);
128
128
 
129
129
begin
137
137
  E : TEventType;
138
138
 
139
139
begin
140
 
  Case RGMsgType.ActiveButtonIndex of 
 
140
  Case RGMsgType.ActiveButtonIndex of
141
141
    0 : E:=etinfo;
142
142
    1 : E:=etWarning;
143
143
    2 : E:=etError;
145
145
  end;
146
146
  FEventLog.log(E,FMsg.Text);
147
147
end;
148
 
  
 
148
 
149
149
{ ---------------------------------------------------------------------
150
150
    Program.
151
151
  ---------------------------------------------------------------------}
152
 
  
 
152
 
153
153
begin
154
154
  application := TFPgtkApplication.Create;
155
155
  application.MainWindow := TMainForm.Create;
156
156
  application.Run;
157
157
  application.Free;
158
 
end.
 
 
b'\\ No newline at end of file'
 
158
end.