… | |
… | |
117 | new CFClient::Database |
117 | new CFClient::Database |
118 | -Env => $DB_ENV, |
118 | -Env => $DB_ENV, |
119 | -Filename => $table, |
119 | -Filename => $table, |
120 | # -Filename => "database", |
120 | # -Filename => "database", |
121 | # -Subname => $table, |
121 | # -Subname => $table, |
|
|
122 | -Property => DB_CHKSUM, |
122 | -Flags => DB_CREATE | DB_UPGRADE, |
123 | -Flags => DB_CREATE | DB_UPGRADE, |
123 | or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; |
124 | or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; |
124 | } |
125 | } |
125 | |
126 | |
126 | package CFClient::Database; |
127 | package CFClient::Database; |
… | |
… | |
201 | #} |
202 | #} |
202 | |
203 | |
203 | sub new_from_layout { |
204 | sub new_from_layout { |
204 | my ($class, $layout, %arg) = @_; |
205 | my ($class, $layout, %arg) = @_; |
205 | |
206 | |
206 | my ($w, $h, $data) = $layout->render; |
207 | my ($w, $h, $data, $format, $internalformat) = $layout->render; |
207 | |
208 | |
208 | $class->new ( |
209 | $class->new ( |
209 | w => $w, |
210 | w => $w, |
210 | h => $h, |
211 | h => $h, |
211 | data => $data, |
212 | data => $data, |
212 | format => GL_ALPHA, |
213 | format => $format, |
213 | internalformat => GL_ALPHA, |
214 | internalformat => $format, |
214 | type => GL_UNSIGNED_BYTE, |
215 | type => GL_UNSIGNED_BYTE, |
215 | %arg, |
216 | %arg, |
216 | ) |
217 | ) |
217 | } |
218 | } |
218 | |
219 | |